ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
pm_fftnr::getFFTR Interface Reference

Generate and return the Reverse (unnormalized) Fourier Transform of a periodic sequence of type complex or real of arbitrary kind parameter. More...

Detailed Description

Generate and return the Reverse (unnormalized) Fourier Transform of a periodic sequence of type complex or real of arbitrary kind parameter.

See the documentation of pm_fftnr for more details.

Parameters
[in]data: The input contiguous vector of arbitrary size of,
  1. type complex of kind any supported by the processor (e.g., CK, CK32, CK64, or CK128),
  2. type real of kind any supported by the processor (e.g., RK, RK32, RK64, or RK128),
containing the periodic sequence whose FFT is to be computed.
Returns
fft : The output vector of size getExpNext(size(data), 2) of the same type and kind as the input data, containing the FFT result.


Possible calling interfaces

use pm_fftnr, only: getFFTR
type_of(data) :: fft(1 : getExpNext(size(data)))
fft(:) = getFFTR(data(:))
Generate and return the Reverse (unnormalized) Fourier Transform of a periodic sequence of type compl...
Definition: pm_fftnr.F90:611
This module contains procedures and generic interfaces for computing the Discrete Fourier Transform o...
Definition: pm_fftnr.F90:184
Warning
The condition 1 < size(data) must hold for the corresponding input arguments.
This condition is verified only if the library is built with the preprocessor macro CHECK_ENABLED=1.
Remarks
The procedures under discussion are impure.
Note
This functional generic interface is simply a more flexible but slower wrapper around the subroutine generic interface setFFTR.
As such, this functional interface can be significantly slower than the corresponding subroutine interface.
See also
getFFTF
getFFTR
getFFTI
setFFTF
setFFTR
setFFTI


Example usage

1program example
2
3 use pm_kind, only: SK, IK, LK
4 use pm_io, only: display_type
5 use pm_fftnr, only: getFFTF, getFFTR
6 use pm_distUnif, only: getUnifRand
7 use pm_mathCompare, only: isClose
8 use pm_err, only: setAsserted
9
10 implicit none
11
12 integer(IK) :: i
13 integer(IK) :: lenData
14 type(display_type) :: disp
15 disp = display_type(file = "main.out.F90")
16
17 do i = 1, 5
18 block
19 use pm_kind, only: TKC => CK32
20 real(TKC) :: reltol
21 complex(TKC), allocatable :: data(:), atad(:)
22 call disp%show("lenData = getUnifRand(5, 100)")
23 lenData = getUnifRand(5, 100)
24 call disp%show("lenData")
25 call disp%show( lenData )
26 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")
27 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
28 call disp%show("data")
29 call disp%show( data )
30 call disp%skip()
31 call disp%show("atad = getFFTR(getFFTF(data))")
32 atad = getFFTR(getFFTF(data))
33 call disp%show("atad = atad / size(atad)")
34 atad = atad / size(atad)
35 call disp%show("atad")
36 call disp%show( atad )
37 call disp%show("reltol = sqrt(epsilon(1._TKC))")
38 reltol = sqrt(epsilon(1._TKC))
39 call disp%show("reltol")
40 call disp%show( reltol )
41 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
42 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
43 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
44 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
45 call disp%skip()
46 end block
47
48 block
49 use pm_kind, only: TKC => CK64
50 real(TKC) :: reltol
51 complex(TKC), allocatable :: data(:), atad(:)
52 call disp%show("lenData = getUnifRand(5, 100)")
53 lenData = getUnifRand(5, 100)
54 call disp%show("lenData")
55 call disp%show( lenData )
56 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")
57 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
58 call disp%show("data")
59 call disp%show( data )
60 call disp%skip()
61 call disp%show("atad = getFFTR(getFFTF(data))")
62 atad = getFFTR(getFFTF(data))
63 call disp%show("atad = atad / size(atad)")
64 atad = atad / size(atad)
65 call disp%show("atad")
66 call disp%show( atad )
67 call disp%show("reltol = sqrt(epsilon(1._TKC))")
68 reltol = sqrt(epsilon(1._TKC))
69 call disp%show("reltol")
70 call disp%show( reltol )
71 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
72 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
73 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
74 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
75 call disp%skip()
76 end block
77
78 block
79 use pm_kind, only: TKC => CKH
80 real(TKC) :: reltol
81 complex(TKC), allocatable :: data(:), atad(:)
82 call disp%show("lenData = getUnifRand(5, 100)")
83 lenData = getUnifRand(5, 100)
84 call disp%show("lenData")
85 call disp%show( lenData )
86 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")
87 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
88 call disp%show("data")
89 call disp%show( data )
90 call disp%skip()
91 call disp%show("atad = getFFTR(getFFTF(data))")
92 atad = getFFTR(getFFTF(data))
93 call disp%show("atad = atad / size(atad)")
94 atad = atad / size(atad)
95 call disp%show("atad")
96 call disp%show( atad )
97 call disp%show("reltol = sqrt(epsilon(1._TKC))")
98 reltol = sqrt(epsilon(1._TKC))
99 call disp%show("reltol")
100 call disp%show( reltol )
101 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
102 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
103 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
104 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
105 call disp%skip()
106 end block
107
108 block
109 use pm_kind, only: TKC => RK32
110 real(TKC) :: reltol
111 real(TKC), allocatable :: data(:), atad(:)
112 call disp%show("lenData = getUnifRand(5, 100)")
113 lenData = getUnifRand(5, 100)
114 call disp%show("lenData")
115 call disp%show( lenData )
116 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")
117 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
118 call disp%show("data")
119 call disp%show( data )
120 call disp%skip()
121 call disp%show("atad = getFFTR(getFFTF(data))")
122 atad = getFFTR(getFFTF(data))
123 call disp%show("atad = atad * 2 / size(atad)")
124 atad = atad * 2 / size(atad)
125 call disp%show("atad")
126 call disp%show( atad )
127 call disp%show("reltol = sqrt(epsilon(1._TKC))")
128 reltol = sqrt(epsilon(1._TKC))
129 call disp%show("reltol")
130 call disp%show( reltol )
131 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
132 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
133 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
134 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
135 call disp%skip()
136 end block
137
138 block
139 use pm_kind, only: TKC => RK64
140 real(TKC) :: reltol
141 real(TKC), allocatable :: data(:), atad(:)
142 call disp%show("lenData = getUnifRand(5, 100)")
143 lenData = getUnifRand(5, 100)
144 call disp%show("lenData")
145 call disp%show( lenData )
146 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")
147 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
148 call disp%show("data")
149 call disp%show( data )
150 call disp%skip()
151 call disp%show("atad = getFFTR(getFFTF(data))")
152 atad = getFFTR(getFFTF(data))
153 call disp%show("atad = atad * 2 / size(atad)")
154 atad = atad * 2 / size(atad)
155 call disp%show("atad")
156 call disp%show( atad )
157 call disp%show("reltol = sqrt(epsilon(1._TKC))")
158 reltol = sqrt(epsilon(1._TKC))
159 call disp%show("reltol")
160 call disp%show( reltol )
161 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
162 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
163 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
164 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
165 call disp%skip()
166 end block
167
168 block
169 use pm_kind, only: TKC => RKH
170 real(TKC) :: reltol
171 real(TKC), allocatable :: data(:), atad(:)
172 call disp%show("lenData = getUnifRand(5, 100)")
173 lenData = getUnifRand(5, 100)
174 call disp%show("lenData")
175 call disp%show( lenData )
176 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")
177 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
178 call disp%show("data")
179 call disp%show( data )
180 call disp%skip()
181 call disp%show("atad = getFFTR(getFFTF(data))")
182 atad = getFFTR(getFFTF(data))
183 call disp%show("atad = atad * 2 / size(atad)")
184 atad = atad * 2 / size(atad)
185 call disp%show("atad")
186 call disp%show( atad )
187 call disp%show("reltol = sqrt(epsilon(1._TKC))")
188 reltol = sqrt(epsilon(1._TKC))
189 call disp%show("reltol")
190 call disp%show( reltol )
191 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
192 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
193 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
194 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
195 call disp%skip()
196 end block
197 end do
198
199end program example
Generate and return a scalar or a contiguous array of rank 1 of length s1 of randomly uniformly distr...
Verify the input assertion holds and if it does not, print the (optional) input message on stdout and...
Definition: pm_err.F90:735
Generate and return an object of type stop_type with the user-specified input attributes.
Definition: pm_err.F90:1617
Generate and return the Forward Fourier Transform (a.k.a. Fourier Analysis) of a periodic sequence of...
Definition: pm_fftnr.F90:250
This is a generic method of the derived type display_type with pass attribute.
Definition: pm_io.F90:11074
Generate and return .true. if the two input values are sufficiently close to each other within the sp...
This module contains classes and procedures for computing various statistical quantities related to t...
This module contains classes and procedures for reporting and handling errors.
Definition: pm_err.F90:52
This module contains classes and procedures for input/output (IO) or generic display operations on st...
Definition: pm_io.F90:252
type(display_type) disp
This is a scalar module variable an object of type display_type for general display.
Definition: pm_io.F90:10962
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:28
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:281
integer, parameter CKH
The scalar integer constant of intrinsic default kind, representing the highest-precision complex kin...
Definition: pm_kind.F90:477
integer, parameter RK32
The real kind for a 32-bits container.
Definition: pm_kind.F90:294
integer, parameter CK64
The complex kind for a 64-bits container.
Definition: pm_kind.F90:290
integer, parameter CK32
The complex kind for a 32-bits container.
Definition: pm_kind.F90:291
integer, parameter RK64
The real kind for a 64-bits container.
Definition: pm_kind.F90:293
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:280
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
Definition: pm_kind.F90:279
integer, parameter RKH
The scalar integer constant of intrinsic default kind, representing the highest-precision real kind a...
Definition: pm_kind.F90:462
This module contains the procedures and interfaces for evaluating the relative or absolute proximity ...
Generate and return an object of type display_type.
Definition: pm_io.F90:10228

Example Unix compile command via Intel ifort compiler
1#!/usr/bin/env sh
2rm main.exe
3ifort -fpp -standard-semantics -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte_fortran_*_intel* -o main.exe
4./main.exe

Example Windows Batch compile command via Intel ifort compiler
1del main.exe
2set PATH=..\..\..\lib;%PATH%
3ifort /fpp /standard-semantics /O3 /I:..\..\..\include main.F90 ..\..\..\lib\libparamonte_fortran_*_intel*.lib /exe:main.exe
4main.exe

Example Unix / MinGW compile command via GNU gfortran compiler
1#!/usr/bin/env sh
2rm main.exe
3gfortran -cpp -ffree-line-length-none -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte_fortran_*_gnu* -o main.exe
4./main.exe

Example output
1lenData = getUnifRand(5, 100)
2lenData
3+94
4data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
5data
6(+1.68156421, +0.820335031), (+1.39215112, +0.594230890), (+1.98123837, +0.643730760), (+1.83567548, +0.436229050), (+1.66378164, +0.604799151), (+1.78639758, +0.137971044), (+1.88385129, +0.225607395), (+1.70450139, +0.385246873E-1), (+1.64031863, +0.347671568), (+1.33499551, +0.549107254), (+1.69288826, +0.399246514), (+1.40770972, +0.324118137E-2), (+1.68367481, +0.389965951), (+1.54945803, +0.166685998), (+1.75079215, +0.933957100), (+1.19113350, +0.801281512), (+1.02522552, +0.480759144E-1), (+1.39186764, +0.452919781), (+1.09614658, +0.537882447), (+1.21654630, +0.412886441), (+1.01624990, +0.139392018E-1), (+1.26274037, +0.307630956), (+1.70534706, +0.635490656), (+1.99452949, +0.274682462), (+1.53900802, +0.505802512), (+1.89289820, +0.848302960), (+1.26162779, +0.823081672), (+1.64718819, +0.379464626E-1), (+1.53104901, +0.374579251), (+1.62432957, +0.537583113), (+1.97285879, +0.220964491), (+1.91717601, +0.495831907), (+1.31121325, +0.371147990E-1), (+1.18429744, +0.824650764), (+1.67625189, +0.748686850), (+1.39975548, +0.630149424), (+1.56990111, +0.126815200), (+1.64747262, +0.171363831), (+1.14550161, +0.978765607), (+1.95964122, +0.165669918E-1), (+1.41196418, +0.584892511), (+1.27039933, +0.163447857E-1), (+1.28030586, +0.794561207), (+1.06520319, +0.374713480), (+1.14727783, +0.532047689), (+1.39894998, +0.458952665), (+1.36025357, +0.160594463), (+1.80216265, +0.865809023), (+1.55341721, +0.616190255), (+1.73893249, +0.142918468), (+1.92258430, +0.969716728), (+1.68806362, +0.419621408), (+1.50316787, +0.350909948), (+1.39067698, +0.149307191), (+1.74697304, +0.745862722E-2), (+1.53614426, +0.161399782), (+1.16160774, +0.947764814), (+1.59806490, +0.195271611), (+1.23161137, +0.335707963), (+1.98973656, +0.235029995), (+1.39802003, +0.370819092), (+1.71354461, +0.252061486), (+1.48182082, +0.889268637), (+1.06496286, +0.724603772), (+1.43931556, +0.730935693), (+1.46534705, +0.501368046E-1), (+1.60000730, +0.528822839), (+1.25734782, +0.165184259), (+1.47938561, +0.447973549), (+1.86918211, +0.186886787), (+1.77074671, +0.227041543), (+1.03275561, +0.650925279), (+1.00837100, +0.452498496), (+1.55494595, +0.381654263), (+1.40632391, +0.147526443), (+1.55382812, +0.887028635), (+1.67172647, +0.400834858), (+1.64696789, +0.653175116E-1), (+1.36864376, +0.726210713), (+1.91142428, +0.265917122), (+1.00322533, +0.585002482), (+1.98593974, +0.749295712), (+1.51060247, +0.737423718), (+1.97825527, +0.185512781), (+1.08258903, +0.964414001), (+1.39002156, +0.576282561), (+1.06929302, +0.833364725), (+1.45030117, +0.857073069E-1), (+1.67517114, +0.560124338), (+1.58600557, +0.238363385), (+1.23293924, +0.261999130), (+1.21080685, +0.720349193), (+1.02877879, +0.645270824), (+1.77884710, +0.959310889)
7
8atad = getFFTR(getFFTF(data))
9atad = atad / size(atad)
10atad
11(+1.68156385, +0.820334971), (+1.39215124, +0.594230890), (+1.98123789, +0.643730760), (+1.83567536, +0.436229050), (+1.66378129, +0.604798973), (+1.78639746, +0.137970999), (+1.88385093, +0.225607127), (+1.70450151, +0.385245085E-1), (+1.64031851, +0.347671568), (+1.33499551, +0.549107313), (+1.69288802, +0.399246633), (+1.40770996, +0.324118137E-2), (+1.68367469, +0.389966041), (+1.54945838, +0.166686118), (+1.75079226, +0.933956981), (+1.19113398, +0.801281333), (+1.02522552, +0.480759740E-1), (+1.39186740, +0.452919841), (+1.09614635, +0.537882626), (+1.21654618, +0.412886441), (+1.01624942, +0.139391720E-1), (+1.26274049, +0.307630986), (+1.70534682, +0.635490775), (+1.99452949, +0.274682403), (+1.53900778, +0.505802691), (+1.89289808, +0.848303139), (+1.26162744, +0.823081851), (+1.64718831, +0.379465222E-1), (+1.53104877, +0.374579340), (+1.62432957, +0.537583232), (+1.97285855, +0.220964611), (+1.91717613, +0.495831847), (+1.31121302, +0.371148176E-1), (+1.18429756, +0.824650645), (+1.67625189, +0.748686671), (+1.39975572, +0.630149186), (+1.56990087, +0.126814991), (+1.64747262, +0.171363682), (+1.14550173, +0.978765488), (+1.95964134, +0.165666491E-1), (+1.41196406, +0.584892511), (+1.27039921, +0.163447112E-1), (+1.28030562, +0.794561148), (+1.06520319, +0.374713361), (+1.14727783, +0.532047629), (+1.39895010, +0.458952516), (+1.36025357, +0.160594553), (+1.80216289, +0.865808845), (+1.55341697, +0.616190195), (+1.73893237, +0.142918408), (+1.92258394, +0.969716668), (+1.68806362, +0.419621199), (+1.50316763, +0.350909948), (+1.39067698, +0.149307132), (+1.74697292, +0.745838881E-2), (+1.53614438, +0.161399677), (+1.16160762, +0.947764754), (+1.59806478, +0.195271581), (+1.23161101, +0.335707843), (+1.98973656, +0.235029936), (+1.39802003, +0.370818973), (+1.71354461, +0.252061546), (+1.48182058, +0.889268398), (+1.06496310, +0.724603355), (+1.43931532, +0.730935633), (+1.46534693, +0.501367748E-1), (+1.60000730, +0.528822780), (+1.25734794, +0.165184259), (+1.47938550, +0.447973400), (+1.86918211, +0.186886773), (+1.77074683, +0.227041423), (+1.03275573, +0.650925279), (+1.00837076, +0.452498376), (+1.55494571, +0.381654352), (+1.40632367, +0.147526398), (+1.55382812, +0.887028575), (+1.67172635, +0.400834888), (+1.64696825, +0.653175339E-1), (+1.36864376, +0.726210713), (+1.91142416, +0.265917331), (+1.00322521, +0.585002363), (+1.98593926, +0.749295473), (+1.51060224, +0.737423480), (+1.97825515, +0.185512677), (+1.08258891, +0.964413881), (+1.39002168, +0.576282382), (+1.06929326, +0.833364725), (+1.45030141, +0.857074186E-1), (+1.67517078, +0.560124338), (+1.58600521, +0.238363445), (+1.23293900, +0.261999249), (+1.21080673, +0.720348895), (+1.02877855, +0.645270944), (+1.77884674, +0.959310889), (+0.238418579E-6, +0.521540642E-7), (+0.357627869E-6, +0.00000000), (-0.178813934E-6, +0.160187483E-6), (+0.00000000, +0.298023224E-7), (+0.178813934E-6, +0.268220901E-6), (+0.298023224E-6, +0.238418579E-6), (-0.119209290E-6, +0.327825546E-6), (+0.298023224E-6, +0.365078449E-6), (-0.119209290E-6, +0.357627869E-6), (+0.357627869E-6, +0.253319740E-6), (-0.119209290E-6, +0.00000000), (-0.119209290E-6, -0.104308128E-6), (-0.298023224E-6, +0.894069672E-7), (+0.178813934E-6, -0.596046448E-7), (-0.298023224E-6, -0.894069672E-7), (+0.238418579E-6, -0.298023224E-7), (+0.00000000, +0.149011612E-6), (+0.298023224E-6, +0.208616257E-6), (+0.00000000, +0.00000000), (+0.119209290E-6, -0.596046448E-7), (+0.00000000, +0.417232513E-6), (+0.357627869E-6, +0.208616257E-6), (-0.238418579E-6, +0.596046448E-7), (+0.298023224E-6, +0.178813934E-6), (+0.119209290E-6, +0.178813934E-6), (+0.357627869E-6, +0.163912773E-6), (+0.119209290E-6, -0.119209290E-6), (+0.119209290E-6, -0.149011612E-6), (-0.596046448E-7, -0.298023224E-7), (+0.357627869E-6, +0.00000000), (-0.596046448E-7, -0.178813934E-6), (+0.178813934E-6, -0.134110451E-6), (-0.119209290E-6, +0.238418579E-6), (+0.238418579E-6, +0.178813934E-6)
12reltol = sqrt(epsilon(1._TKC))
13reltol
14+0.345266977E-3
15isClose(data, atad(1:size(data)), reltol = reltol)
16T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
17call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
18
19lenData = getUnifRand(5, 100)
20lenData
21+82
22data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
23data
24(+1.1459716835513261, +0.67141085197063644), (+1.6291786765777625, +0.99903479575648713), (+1.7443321760180264, +0.84762863620189410), (+1.3861301014022607, +0.44665541738164616E-1), (+1.4477345221460478, +0.64545215129387679), (+1.3113652620311806, +0.12320120963181092), (+1.0808784627830379, +0.73193437342351109), (+1.4871745084856944, +0.30964634086011300), (+1.4599058243475671, +0.51875616817364889), (+1.3686248663482055, +0.19339627133233162), (+1.8650797974486788, +0.96312598197787413), (+1.6969265705775867, +0.69453327858225489), (+1.4530217399881771, +0.18343903203264689), (+1.0107824870036748, +0.18195228001323571), (+1.1262043529396797, +0.49733604092417338), (+1.0554860497404697, +0.59807994452232394), (+1.3293323293984085, +0.11987733387913402), (+1.6402643382380417, +0.54102817011378090), (+1.0483913611192839, +0.72568103342273560), (+1.9304729571992683, +0.72545032986070812), (+1.6515745173492218, +0.98456749109392827), (+1.7112541431928967, +0.72218639386177985), (+1.8901867087949606, +0.46237482927660711), (+1.1001289773880822, +0.50021919056570685), (+1.6269799517649783, +0.10130638688527116), (+1.7094669166902872, +0.28028303879158811), (+1.4104079291595868, +0.88696301636657093E-2), (+1.0203677711282193, +0.25764227720945210), (+1.6442623896013360, +0.75728777902759470), (+1.8370659891607022, +0.11023742062940434E-1), (+1.6752739793268203, +0.60449315616102772), (+1.8776344297836443, +0.57554362404779402), (+1.7278655054654077, +0.87785015105992059), (+1.4653769755494435, +0.34020320482518518), (+1.6272365799626163, +0.40812405684579434), (+1.7936996628937565, +0.40277405536454358), (+1.0028523798131523, +0.39359461589046130), (+1.1786440988155826, +0.66843516871968289), (+1.3783458806599089, +0.21766210040667555), (+1.7857658301125396, +0.66655882440568048), (+1.5948556600072052, +0.11631798663790260), (+1.7085713684236272, +0.28477321866992433), (+1.1590358445563012, +0.19385079356770418), (+1.8877137329851639, +0.12855309157083994E-1), (+1.9156634734027436, +0.31331394939325474), (+1.4553581228606478, +0.55540112139444409), (+1.1238276589687000, +0.56357577309137707), (+1.0913468957852377, +0.91766132587810911), (+1.9558369262069355, +0.63881219360213970), (+1.6948907313496253, +0.18526005207133311), (+1.6143698915476947, +0.80940094792315098), (+1.4900761796027762, +0.88172744262575808), (+1.1553186338936108, +0.22297045614404953), (+1.8819905450079655, +0.62123869295008682), (+1.7095597741057968, +0.29544762853603668), (+1.3078786710333266, +0.38675509950617393), (+1.3044189200965366, +0.37120212824030741), (+1.3542575183610110, +0.50389791680456897), (+1.9808400949686042, +0.81171516890007933), (+1.2109400926971350, +0.70164573138845143), (+1.0989889593613817, +0.84489484736947362), (+1.4780200788359801, +0.38788059540841746E-1), (+1.8089139998446422, +0.82281088890888476), (+1.8785333823844623, +0.23744492921645666), (+1.6403993602645901, +0.51563471730600308), (+1.3742412360638081, +0.20136527959669770), (+1.6971106292436369, +0.39495471663965365), (+1.3110036519108643, +0.82124212200971380), (+1.8692974818170862, +0.69193347970712504), (+1.3325432570969671, +0.70765438904684452), (+1.9284326444790763, +0.47110608184046965), (+1.5892554677689856, +0.57317155759196547), (+1.2447417319458531, +0.67875248023351531), (+1.8071086410078885, +0.41432626566576103), (+1.8910164558115712, +0.71123670632248481), (+1.7734879761156901, +0.36605874047569542E-1), (+1.0769196918098187, +0.16431792273598655), (+1.7785036817201441, +0.38382702120148937), (+1.7432159555393705, +0.32144001586742244), (+1.6064900569941947, +0.25610841836794040), (+1.1702621741774832, +0.12990381708153986), (+1.8372043202703452, +0.23574498021232415)
25
26atad = getFFTR(getFFTF(data))
27atad = atad / size(atad)
28atad
29(+1.1459716835513258, +0.67141085197063610), (+1.6291786765777627, +0.99903479575648735), (+1.7443321760180264, +0.84762863620189433), (+1.3861301014022605, +0.44665541738164616E-1), (+1.4477345221460476, +0.64545215129387690), (+1.3113652620311809, +0.12320120963181125), (+1.0808784627830379, +0.73193437342351120), (+1.4871745084856942, +0.30964634086011311), (+1.4599058243475664, +0.51875616817364900), (+1.3686248663482057, +0.19339627133233206), (+1.8650797974486788, +0.96312598197787447), (+1.6969265705775867, +0.69453327858225489), (+1.4530217399881764, +0.18343903203264711), (+1.0107824870036741, +0.18195228001323588), (+1.1262043529396797, +0.49733604092417377), (+1.0554860497404699, +0.59807994452232416), (+1.3293323293984083, +0.11987733387913402), (+1.6402643382380420, +0.54102817011378090), (+1.0483913611192839, +0.72568103342273560), (+1.9304729571992680, +0.72545032986070801), (+1.6515745173492213, +0.98456749109392794), (+1.7112541431928960, +0.72218639386177963), (+1.8901867087949602, +0.46237482927660700), (+1.1001289773880820, +0.50021919056570652), (+1.6269799517649781, +0.10130638688527115), (+1.7094669166902872, +0.28028303879158839), (+1.4104079291595868, +0.88696301636659036E-2), (+1.0203677711282193, +0.25764227720945176), (+1.6442623896013355, +0.75728777902759459), (+1.8370659891607017, +0.11023742062940576E-1), (+1.6752739793268199, +0.60449315616102761), (+1.8776344297836438, +0.57554362404779413), (+1.7278655054654077, +0.87785015105992026), (+1.4653769755494435, +0.34020320482518485), (+1.6272365799626163, +0.40812405684579400), (+1.7936996628937563, +0.40277405536454347), (+1.0028523798131523, +0.39359461589046107), (+1.1786440988155826, +0.66843516871968256), (+1.3783458806599089, +0.21766210040667533), (+1.7857658301125401, +0.66655882440567993), (+1.5948556600072048, +0.11631798663790255), (+1.7085713684236268, +0.28477321866992400), (+1.1590358445563012, +0.19385079356770374), (+1.8877137329851639, +0.12855309157083911E-1), (+1.9156634734027431, +0.31331394939325458), (+1.4553581228606474, +0.55540112139444364), (+1.1238276589687000, +0.56357577309137696), (+1.0913468957852379, +0.91766132587810856), (+1.9558369262069357, +0.63881219360213959), (+1.6948907313496253, +0.18526005207133298), (+1.6143698915476947, +0.80940094792315054), (+1.4900761796027757, +0.88172744262575786), (+1.1553186338936108, +0.22297045614404926), (+1.8819905450079650, +0.62123869295008616), (+1.7095597741057964, +0.29544762853603634), (+1.3078786710333261, +0.38675509950617365), (+1.3044189200965364, +0.37120212824030713), (+1.3542575183610110, +0.50389791680456830), (+1.9808400949686038, +0.81171516890007878), (+1.2109400926971348, +0.70164573138845121), (+1.0989889593613815, +0.84489484736947296), (+1.4780200788359796, +0.38788059540841163E-1), (+1.8089139998446422, +0.82281088890888421), (+1.8785333823844619, +0.23744492921645632), (+1.6403993602645899, +0.51563471730600297), (+1.3742412360638077, +0.20136527959669737), (+1.6971106292436366, +0.39495471663965342), (+1.3110036519108634, +0.82124212200971403), (+1.8692974818170864, +0.69193347970712482), (+1.3325432570969669, +0.70765438904684441), (+1.9284326444790763, +0.47110608184046965), (+1.5892554677689856, +0.57317155759196547), (+1.2447417319458525, +0.67875248023351520), (+1.8071086410078885, +0.41432626566576070), (+1.8910164558115712, +0.71123670632248437), (+1.7734879761156901, +0.36605874047569653E-1), (+1.0769196918098183, +0.16431792273598622), (+1.7785036817201436, +0.38382702120148909), (+1.7432159555393705, +0.32144001586742182), (+1.6064900569941944, +0.25610841836793985), (+1.1702621741774830, +0.12990381708153992), (+1.8372043202703450, +0.23574498021232415), (+0.33306690738754696E-15, -0.11102230246251565E-15), (-0.22204460492503131E-15, -0.44408920985006262E-15), (+0.22204460492503131E-15, -0.22204460492503131E-15), (+0.33306690738754696E-15, -0.11102230246251565E-15), (+0.44408920985006262E-15, -0.27755575615628914E-16), (+0.22204460492503131E-15, -0.22204460492503131E-15), (-0.22204460492503131E-15, -0.23592239273284576E-15), (+0.0000000000000000, -0.61062266354383610E-15), (+0.11102230246251565E-15, -0.36082248300317588E-15), (+0.0000000000000000, -0.38857805861880479E-15), (+0.22204460492503131E-15, -0.11102230246251565E-15), (+0.22204460492503131E-15, -0.30184188481996443E-15), (+0.44408920985006262E-15, +0.55511151231257827E-16), (+0.33306690738754696E-15, -0.33306690738754696E-15), (-0.33306690738754696E-15, +0.22204460492503131E-15), (-0.11102230246251565E-15, -0.83266726846886741E-16), (-0.44408920985006262E-15, +0.13877787807814457E-15), (-0.22204460492503131E-15, -0.83266726846886741E-16), (+0.0000000000000000, +0.22204460492503131E-15), (+0.0000000000000000, +0.0000000000000000), (+0.0000000000000000, +0.44408920985006262E-15), (-0.22204460492503131E-15, +0.38857805861880479E-15), (-0.55511151231257827E-15, +0.16653345369377348E-15), (+0.11102230246251565E-15, +0.27755575615628914E-16), (+0.0000000000000000, -0.22204460492503131E-15), (+0.33306690738754696E-15, +0.27755575615628914E-16), (-0.11102230246251565E-15, +0.16653345369377348E-15), (-0.33306690738754696E-15, +0.22204460492503131E-15), (+0.44408920985006262E-15, +0.11102230246251565E-15), (+0.22204460492503131E-15, +0.44408920985006262E-15), (-0.11102230246251565E-15, +0.55511151231257827E-16), (+0.44408920985006262E-15, +0.30531133177191805E-15), (+0.0000000000000000, +0.38857805861880479E-15), (+0.22204460492503131E-15, +0.11102230246251565E-15), (-0.11102230246251565E-15, +0.27755575615628914E-15), (+0.0000000000000000, +0.49960036108132044E-15), (+0.11102230246251565E-15, +0.55511151231257827E-15), (+0.22204460492503131E-15, +0.44408920985006262E-15), (+0.0000000000000000, +0.16653345369377348E-15), (+0.55511151231257827E-15, +0.38857805861880479E-15), (+0.0000000000000000, +0.66613381477509392E-15), (+0.0000000000000000, +0.22204460492503131E-15), (+0.0000000000000000, +0.55511151231257827E-15), (+0.44408920985006262E-15, +0.63490879220751140E-15), (+0.11102230246251565E-15, +0.88817841970012523E-15), (+0.55511151231257827E-15, +0.99920072216264089E-15)
30reltol = sqrt(epsilon(1._TKC))
31reltol
32+0.14901161193847656E-7
33isClose(data, atad(1:size(data)), reltol = reltol)
34T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
35call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
36
37lenData = getUnifRand(5, 100)
38lenData
39+33
40data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
41data
42(+1.83121890519910136939292921847777692, +0.874443272209879386755131240719649420), (+1.76997121124068912018294611001028522, +0.436701096035856497115985596043918565), (+1.50028991135083860754927132525613989, +0.625188570331143287321895178810922967), (+1.74430763955426906284122361490961143, +0.612901076254379195329056841600574668E-1), (+1.46315424379963601193573773790147697, +0.122139968198943797611386162803815141), (+1.01250654415246985975589392871911182, +0.122879842970041952989197003126731893), (+1.93885918737040025689690724260495928, +0.747913567714867953050485620226585812), (+1.57532336656191571842721713867050965, +0.102886723663197487349167488926892186), (+1.09327658907604904659247483933523546, +0.404174302536940571698893212040039431), (+1.64602229147177854808266014733778719, +0.704635807178722008685626287612575329), (+1.17882242713315487767712973541382633, +0.256868823856987151331117081863993552), (+1.40210645403399437289266654857954202, +0.239566249882430964999205828343776361), (+1.54221807573637058071616672882137769, +0.320494026728294526635430766617420194), (+1.11714009779508607748831864541823585, +0.566220938371673490248836183110720328), (+1.24248989988616784838383302591628099, +0.609676685896433246275906266366946504), (+1.88558023219388349573810429117423030, +0.876778106029016804167378732135718401), (+1.67924076397520839126829207934650927, +0.583855624972133989383323054597182481E-1), (+1.45735642407308935487846426044543258, +0.576251004755995819507432851788445393), (+1.26394273417913981129975334681851815, +0.776345761155855066391918308583268759), (+1.72841983232717809282976416086275505, +0.905975032070921648001427886981890896), (+1.98674849986323573302820035250754848, +0.930289824941709951958971307763199560), (+1.99583236811992680121860736262579080, +0.790229327666850380301439317589474236), (+1.42454656646410557935907862547726363, +0.256623060568379221896701195694647549), (+1.54212086379535202009230823887737113, +0.978738635343081647216013779705180065E-1), (+1.33808825243427511198567964162216675, +0.985606093344453660834968463750849328), (+1.94165194414964560229045347692820254, +0.558702086747267184913445460553904966), (+1.77927703729035813770409547350197564, +0.211571666137964258102149544359897778), (+1.59423255913576116038475073559569449, +0.372711584675897922056354581185589960), (+1.89507190120499792605172509081866976, +0.520180210263247101892906884101372196), (+1.90634844219244362246961674670028923, +0.897059141425566867915678142473901937), (+1.59855132403381705536616001086215914, +0.809760861271675593014201780655201281), (+1.31646171991233827651698913970561638, +0.626916997603556668046399091691068802E-1), (+1.39439392068798749388269138628472552, +0.440601858011314988503521515233881158)
43
44atad = getFFTR(getFFTF(data))
45atad = atad / size(atad)
46atad
47(+1.83121890519910136939292921847777692, +0.874443272209879386755131240719649613), (+1.76997121124068912018294611001028542, +0.436701096035856497115985596043918661), (+1.50028991135083860754927132525613989, +0.625188570331143287321895178810922967), (+1.74430763955426906284122361490961143, +0.612901076254379195329056841600575631E-1), (+1.46315424379963601193573773790147755, +0.122139968198943797611386162803815021), (+1.01250654415246985975589392871911221, +0.122879842970041952989197003126731796), (+1.93885918737040025689690724260495947, +0.747913567714867953050485620226585716), (+1.57532336656191571842721713867050984, +0.102886723663197487349167488926891789), (+1.09327658907604904659247483933523507, +0.404174302536940571698893212040039527), (+1.64602229147177854808266014733778719, +0.704635807178722008685626287612575425), (+1.17882242713315487767712973541382633, +0.256868823856987151331117081863993745), (+1.40210645403399437289266654857954182, +0.239566249882430964999205828343776650), (+1.54221807573637058071616672882137807, +0.320494026728294526635430766617420194), (+1.11714009779508607748831864541823605, +0.566220938371673490248836183110720521), (+1.24248989988616784838383302591628079, +0.609676685896433246275906266366946600), (+1.88558023219388349573810429117423030, +0.876778106029016804167378732135718690), (+1.67924076397520839126829207934650907, +0.583855624972133989383323054597182240E-1), (+1.45735642407308935487846426044543258, +0.576251004755995819507432851788445586), (+1.26394273417913981129975334681851815, +0.776345761155855066391918308583268566), (+1.72841983232717809282976416086275505, +0.905975032070921648001427886981890799), (+1.98674849986323573302820035250754867, +0.930289824941709951958971307763199656), (+1.99583236811992680121860736262579118, +0.790229327666850380301439317589474332), (+1.42454656646410557935907862547726344, +0.256623060568379221896701195694647309), (+1.54212086379535202009230823887737094, +0.978738635343081647216013779705179223E-1), (+1.33808825243427511198567964162216675, +0.985606093344453660834968463750849039), (+1.94165194414964560229045347692820254, +0.558702086747267184913445460553904966), (+1.77927703729035813770409547350197564, +0.211571666137964258102149544359897393), (+1.59423255913576116038475073559569449, +0.372711584675897922056354581185589768), (+1.89507190120499792605172509081866995, +0.520180210263247101892906884101372389), (+1.90634844219244362246961674670028885, +0.897059141425566867915678142473902322), (+1.59855132403381705536616001086215934, +0.809760861271675593014201780655201281), (+1.31646171991233827651698913970561638, +0.626916997603556668046399091691066876E-1), (+1.39439392068798749388269138628472571, +0.440601858011314988503521515233881061), (+0.00000000000000000000000000000000000, -0.168518870133883137142398069976181140E-33), (+0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000), (+0.00000000000000000000000000000000000, -0.144444745829042688979198345693869549E-33), (-0.385185988877447170611195588516985464E-33, +0.120370621524202240815998621411557957E-33), (-0.385185988877447170611195588516985464E-33, -0.481482486096808963263994485646231830E-34), (-0.385185988877447170611195588516985464E-33, +0.00000000000000000000000000000000000), (-0.192592994438723585305597794258492732E-33, +0.180555932286303361223997932117336936E-33), (+0.192592994438723585305597794258492732E-33, +0.240741243048404481631997242823115915E-34), (+0.288889491658085377958396691387739098E-33, -0.144444745829042688979198345693869549E-33), (+0.962964972193617926527988971292463659E-34, -0.168518870133883137142398069976181140E-33), (+0.00000000000000000000000000000000000, -0.276852429505665153876796829246583302E-33), (-0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33), (-0.192592994438723585305597794258492732E-33, -0.385185988877447170611195588516985464E-33), (+0.00000000000000000000000000000000000, -0.144444745829042688979198345693869549E-33), (-0.192592994438723585305597794258492732E-33, -0.144444745829042688979198345693869549E-33), (+0.00000000000000000000000000000000000, +0.117361355986097184795598655876269008E-33), (+0.00000000000000000000000000000000000, -0.144444745829042688979198345693869549E-33), (+0.00000000000000000000000000000000000, +0.192592994438723585305597794258492732E-33), (+0.00000000000000000000000000000000000, +0.00000000000000000000000000000000000), (-0.962964972193617926527988971292463659E-34, +0.481482486096808963263994485646231830E-34), (+0.00000000000000000000000000000000000, -0.481482486096808963263994485646231830E-34), (-0.192592994438723585305597794258492732E-33, +0.144444745829042688979198345693869549E-33), (+0.00000000000000000000000000000000000, +0.108333559371782016734398759270402162E-33), (-0.962964972193617926527988971292463659E-34, +0.144444745829042688979198345693869549E-33), (+0.288889491658085377958396691387739098E-33, +0.962964972193617926527988971292463659E-34), (+0.00000000000000000000000000000000000, +0.469445423944388739182394623505076034E-33), (-0.962964972193617926527988971292463659E-34, +0.722223729145213444895991728469347744E-34), (-0.192592994438723585305597794258492732E-33, -0.144444745829042688979198345693869549E-33), (+0.288889491658085377958396691387739098E-33, +0.00000000000000000000000000000000000), (-0.192592994438723585305597794258492732E-33, +0.481482486096808963263994485646231830E-34), (-0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34)
48reltol = sqrt(epsilon(1._TKC))
49reltol
50+0.138777878078144567552953958511352539E-16
51isClose(data, atad(1:size(data)), reltol = reltol)
52T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
53call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
54
55lenData = getUnifRand(5, 100)
56lenData
57+13
58data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
59data
60+1.56049275, +1.50040221, +1.78728819, +1.39285815, +1.39474297, +1.94587851, +1.31779623, +1.86176753, +1.95930016, +1.88489389, +1.24563718, +1.53014219, +1.93298161
61
62atad = getFFTR(getFFTF(data))
63atad = atad * 2 / size(atad)
64atad
65+1.56049263, +1.50040233, +1.78728795, +1.39285851, +1.39474297, +1.94587851, +1.31779623, +1.86176729, +1.95930016, +1.88489401, +1.24563694, +1.53014231, +1.93298125, +0.298023224E-6, +0.178813934E-6, +0.417232513E-6
66reltol = sqrt(epsilon(1._TKC))
67reltol
68+0.345266977E-3
69isClose(data, atad(1:size(data)), reltol = reltol)
70T, T, T, T, T, T, T, T, T, T, T, T, T
71call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
72
73lenData = getUnifRand(5, 100)
74lenData
75+36
76data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
77data
78+1.5646843282159533, +1.9103745007430917, +1.0996079410544808, +1.9316539576032750, +1.3911870166760143, +1.0455399150716462, +1.3966422164261987, +1.4239508075973075, +1.6896777660033484, +1.4068995412914920, +1.7750913227852541, +1.7775750466073976, +1.9091042396712095, +1.8388255749647051, +1.1000462843172016, +1.6687108870162355, +1.9154728085839430, +1.1061251221506616, +1.7734801260172965, +1.0429366507587865, +1.5425513127856121, +1.3651836255555341, +1.8412760089635940, +1.1108801038521214, +1.5992968490590282, +1.4093879251113117, +1.1315119175143469, +1.7960239444964337, +1.9615042525659858, +1.4246865591359970, +1.1777186844847409, +1.5956139833677427, +1.4539744282097593, +1.0535553897049681, +1.0420386043705570, +1.3035533183679879
79
80atad = getFFTR(getFFTF(data))
81atad = atad * 2 / size(atad)
82atad
83+1.5646843282159533, +1.9103745007430917, +1.0996079410544803, +1.9316539576032752, +1.3911870166760141, +1.0455399150716462, +1.3966422164261980, +1.4239508075973073, +1.6896777660033480, +1.4068995412914918, +1.7750913227852532, +1.7775750466073974, +1.9091042396712088, +1.8388255749647051, +1.1000462843172014, +1.6687108870162350, +1.9154728085839430, +1.1061251221506612, +1.7734801260172963, +1.0429366507587863, +1.5425513127856119, +1.3651836255555336, +1.8412760089635936, +1.1108801038521210, +1.5992968490590282, +1.4093879251113111, +1.1315119175143469, +1.7960239444964332, +1.9615042525659854, +1.4246865591359965, +1.1777186844847409, +1.5956139833677421, +1.4539744282097593, +1.0535553897049679, +1.0420386043705574, +1.3035533183679875, +0.22204460492503131E-15, -0.55511151231257827E-15, +0.66613381477509392E-15, -0.33306690738754696E-15, +0.55511151231257827E-15, -0.11102230246251565E-15, +0.66613381477509392E-15, +0.22204460492503131E-15, +0.77715611723760958E-15, -0.11102230246251565E-15, +0.44408920985006262E-15, +0.44408920985006262E-15, +0.22204460492503131E-15, +0.11102230246251565E-15, +0.11102230246251565E-15, +0.22204460492503131E-15, +0.22204460492503131E-15, +0.11102230246251565E-15, +0.44408920985006262E-15, +0.11102230246251565E-15, +0.33306690738754696E-15, +0.66613381477509392E-15, +0.0000000000000000, +0.66613381477509392E-15, +0.44408920985006262E-15, +0.33306690738754696E-15, +0.33306690738754696E-15, +0.77715611723760958E-15
84reltol = sqrt(epsilon(1._TKC))
85reltol
86+0.14901161193847656E-7
87isClose(data, atad(1:size(data)), reltol = reltol)
88T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
89call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
90
91lenData = getUnifRand(5, 100)
92lenData
93+85
94data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
95data
96+1.42639216569255712490370865522301427, +1.63394143419145414568196738935611517, +1.74067571340208402057705481880203644, +1.70936325069576936160698617793790363, +1.17469378349690175799543315155467983, +1.68909072025643678880061790276139674, +1.98478957658159347948835054714795139, +1.82970505194051375433304085170758343, +1.81502359585757330493542530525619268, +1.67763650180779699285656483555155645, +1.38809897241413901223259351361176256, +1.55644688652473845163652964354473068, +1.51015663136382440623720661425226659, +1.38426754480123660758733039706031470, +1.68105059603535961892570230839608477, +1.16838523763207947137652491838245731, +1.14457884683174796586042921602181723, +1.72824725264769024177877436654540970, +1.36500392433272165965821502119119843, +1.81909661778003267545503404072794541, +1.15836764395537073663150648425590835, +1.88813742136189326809318936376961623, +1.86908612733657859139938436966044367, +1.86799316796883987616200054593386997, +1.23307454499885014737617847304093566, +1.72971115107434572781999909470022697, +1.04275361083715672436894102062948176, +1.26275317090180634327924634137253986, +1.23085405303338987110609129506521693, +1.73930561369632948451146995147381087, +1.44773058168679204646490058610313261, +1.85524197739285353764586931750062428, +1.54772153586467393073201177428522157, +1.14452686434647097169322855942363105, +1.92329626559163334073837726472873878, +1.62940187066997363163272707826349519, +1.78053673088815758791837595538818960, +1.90199377200763750158044545057040482, +1.89213049327021457789451242885017887, +1.23560895375167697169053168625476802, +1.18958456446337255725522373121933058, +1.96263440428398709494245804180854741, +1.65759780306454725365402993335688915, +1.73576252848104169252420327207608746, +1.50201852657968620421875175281040965, +1.93906929716076312945625462765424227, +1.45573977408201064016903831354796302, +1.10779841245037392200683193748314935, +1.07804744494424850841873696477687322, +1.04251463111233375019298950365889063, +1.18834117472462047686920635136043037, +1.39609108499957794119717784330250302, +1.63494498611598069713134344068198163, +1.56690556063453033298908671133885787, +1.28050649106671349286400977978360951, +1.04830373027255089110550501244476719, +1.49984307293414295757628403918809274, +1.01248104674636793350740413338345469, +1.03969933835844080116436122870051504, +1.82006655822946178414661207438849866, +1.70415687184052496667047578500344410, +1.23938701366946633408841232706272282, +1.51432221080282491838978290256217643, +1.66406235359421845753677219242405864, +1.24396278566658370428355106022201846, +1.48491345195150938008524009428247515, +1.39703594183026654474965780703766085, +1.68085024069989589853547930216560652, +1.35544877600125847167556179750551819, +1.48968663907181998352108106884961826, +1.24767689941903043821202216022062371, +1.08982740384181116097331905030608395, +1.75138040391795908027563568793026584, +1.87584019977032243230396125266083279, +1.53405104232390921538919585094312019, +1.38765137808568106995330016750876574, +1.67991180032735574126611296129883797, +1.19778988547253773017104239617947031, +1.46935366278823918504623678674069726, +1.80059147814984621439783126371725188, +1.80702214969577157023032349852154756, +1.09518169486570275240181529491815070, +1.12493867157667057138112399767401587, +1.35745945920997859362851242033333421, +1.02340871591072827126893274548455926
97
98atad = getFFTR(getFFTF(data))
99atad = atad * 2 / size(atad)
100atad
101+1.42639216569255712490370865522301427, +1.63394143419145414568196738935611517, +1.74067571340208402057705481880203644, +1.70936325069576936160698617793790363, +1.17469378349690175799543315155467944, +1.68909072025643678880061790276139635, +1.98478957658159347948835054714795101, +1.82970505194051375433304085170758382, +1.81502359585757330493542530525619325, +1.67763650180779699285656483555155645, +1.38809897241413901223259351361176295, +1.55644688652473845163652964354473087, +1.51015663136382440623720661425226698, +1.38426754480123660758733039706031432, +1.68105059603535961892570230839608516, +1.16838523763207947137652491838245693, +1.14457884683174796586042921602181723, +1.72824725264769024177877436654540970, +1.36500392433272165965821502119119843, +1.81909661778003267545503404072794579, +1.15836764395537073663150648425590815, +1.88813742136189326809318936376961623, +1.86908612733657859139938436966044386, +1.86799316796883987616200054593387017, +1.23307454499885014737617847304093566, +1.72971115107434572781999909470022697, +1.04275361083715672436894102062948195, +1.26275317090180634327924634137254005, +1.23085405303338987110609129506521674, +1.73930561369632948451146995147381107, +1.44773058168679204646490058610313300, +1.85524197739285353764586931750062505, +1.54772153586467393073201177428522176, +1.14452686434647097169322855942363105, +1.92329626559163334073837726472873898, +1.62940187066997363163272707826349539, +1.78053673088815758791837595538818979, +1.90199377200763750158044545057040501, +1.89213049327021457789451242885017887, +1.23560895375167697169053168625476821, +1.18958456446337255725522373121933078, +1.96263440428398709494245804180854741, +1.65759780306454725365402993335688973, +1.73576252848104169252420327207608804, +1.50201852657968620421875175281041003, +1.93906929716076312945625462765424266, +1.45573977408201064016903831354796321, +1.10779841245037392200683193748314955, +1.07804744494424850841873696477687342, +1.04251463111233375019298950365889063, +1.18834117472462047686920635136043075, +1.39609108499957794119717784330250340, +1.63494498611598069713134344068198240, +1.56690556063453033298908671133885768, +1.28050649106671349286400977978360951, +1.04830373027255089110550501244476738, +1.49984307293414295757628403918809294, +1.01248104674636793350740413338345412, +1.03969933835844080116436122870051504, +1.82006655822946178414661207438849905, +1.70415687184052496667047578500344410, +1.23938701366946633408841232706272243, +1.51432221080282491838978290256217662, +1.66406235359421845753677219242405864, +1.24396278566658370428355106022201865, +1.48491345195150938008524009428247515, +1.39703594183026654474965780703766085, +1.68085024069989589853547930216560672, +1.35544877600125847167556179750551857, +1.48968663907181998352108106884961807, +1.24767689941903043821202216022062371, +1.08982740384181116097331905030608434, +1.75138040391795908027563568793026603, +1.87584019977032243230396125266083317, +1.53405104232390921538919585094311981, +1.38765137808568106995330016750876612, +1.67991180032735574126611296129883836, +1.19778988547253773017104239617947031, +1.46935366278823918504623678674069726, +1.80059147814984621439783126371725265, +1.80702214969577157023032349852154756, +1.09518169486570275240181529491815012, +1.12493867157667057138112399767401587, +1.35745945920997859362851242033333421, +1.02340871591072827126893274548455945, -0.770371977754894341222391177033970927E-33, +0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, -0.385185988877447170611195588516985464E-33, -0.385185988877447170611195588516985464E-33, -0.192592994438723585305597794258492732E-33, -0.577778983316170755916793382775478196E-33, -0.192592994438723585305597794258492732E-33, -0.770371977754894341222391177033970927E-33, -0.481482486096808963263994485646231830E-33, -0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33, +0.00000000000000000000000000000000000, -0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34, -0.385185988877447170611195588516985464E-33, +0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33, -0.866668474974256133875190074163217293E-33, -0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33, -0.674075480535532548569592279904724561E-33, -0.770371977754894341222391177033970927E-33, -0.577778983316170755916793382775478196E-33, +0.962964972193617926527988971292463659E-34, -0.385185988877447170611195588516985464E-33, -0.288889491658085377958396691387739098E-33, +0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34, -0.674075480535532548569592279904724561E-33, -0.481482486096808963263994485646231830E-33, -0.962964972193617926527988971292463659E-34, +0.577778983316170755916793382775478196E-33, +0.00000000000000000000000000000000000, -0.577778983316170755916793382775478196E-33, +0.00000000000000000000000000000000000, -0.481482486096808963263994485646231830E-33, -0.481482486096808963263994485646231830E-33, -0.577778983316170755916793382775478196E-33, -0.674075480535532548569592279904724561E-33, +0.962964972193617926527988971292463659E-34
102reltol = sqrt(epsilon(1._TKC))
103reltol
104+0.138777878078144567552953958511352539E-16
105isClose(data, atad(1:size(data)), reltol = reltol)
106T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
107call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
108
109lenData = getUnifRand(5, 100)
110lenData
111+31
112data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
113data
114(+1.73631513, +0.165333629), (+1.42692018, +0.537296295), (+1.28134632, +0.348724365), (+1.02425063, +0.914845765), (+1.60737514, +0.740811646), (+1.57293379, +0.327705204), (+1.37010193, +0.567655027), (+1.86590457, +0.880881548), (+1.39604259, +0.653521538), (+1.92264557, +0.254331231), (+1.25466824, +0.986459374), (+1.23777306, +0.149094820), (+1.06479812, +0.507299960), (+1.00748229, +0.609951019), (+1.43252611, +0.507791400), (+1.18038416, +0.810612261), (+1.65260434, +0.458662331), (+1.35335934, +0.402856529), (+1.08427024, +0.677258849), (+1.34930444, +0.609772086), (+1.76244426, +0.626895368), (+1.27040613, +0.299467444E-1), (+1.16243887, +0.270959258), (+1.55243897, +0.471158087), (+1.85367191, +0.271027863), (+1.72805727, +0.104311764), (+1.71565938, +0.662840068), (+1.55285358, +0.547137618), (+1.72325850, +0.879344463), (+1.16034770, +0.339795351), (+1.69343221, +0.307463050)
115
116atad = getFFTR(getFFTF(data))
117atad = atad / size(atad)
118atad
119(+1.73631525, +0.165333599), (+1.42692018, +0.537296295), (+1.28134632, +0.348724365), (+1.02425063, +0.914845824), (+1.60737526, +0.740811586), (+1.57293391, +0.327705204), (+1.37010193, +0.567654967), (+1.86590457, +0.880881429), (+1.39604270, +0.653521538), (+1.92264569, +0.254331172), (+1.25466824, +0.986459255), (+1.23777294, +0.149094835), (+1.06479824, +0.507299900), (+1.00748241, +0.609951019), (+1.43252635, +0.507791400), (+1.18038416, +0.810612202), (+1.65260434, +0.458662301), (+1.35335946, +0.402856588), (+1.08427024, +0.677258849), (+1.34930456, +0.609772205), (+1.76244438, +0.626895308), (+1.27040625, +0.299468189E-1), (+1.16243911, +0.270959228), (+1.55243921, +0.471157908), (+1.85367191, +0.271027803), (+1.72805727, +0.104311779), (+1.71565938, +0.662840009), (+1.55285358, +0.547137618), (+1.72325861, +0.879344344), (+1.16034782, +0.339795411), (+1.69343233, +0.307463050), (+0.238418579E-6, -0.298023224E-7)
120reltol = sqrt(epsilon(1._TKC))
121reltol
122+0.345266977E-3
123isClose(data, atad(1:size(data)), reltol = reltol)
124T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
125call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
126
127lenData = getUnifRand(5, 100)
128lenData
129+5
130data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
131data
132(+1.5696815976700189, +0.96096869913551575), (+1.2856889297680989, +0.17028842109168929), (+1.7495590363046860, +0.86301913836907707), (+1.4098018870750422, +0.90854430643246431), (+1.6752912083604032, +0.64381826882043791)
133
134atad = getFFTR(getFFTF(data))
135atad = atad / size(atad)
136atad
137(+1.5696815976700191, +0.96096869913551586), (+1.2856889297680989, +0.17028842109168940), (+1.7495590363046860, +0.86301913836907684), (+1.4098018870750417, +0.90854430643246398), (+1.6752912083604035, +0.64381826882043802), (+0.11102230246251565E-15, -0.11102230246251565E-15), (+0.22204460492503131E-15, +0.38857805861880479E-15), (+0.33306690738754696E-15, +0.33306690738754696E-15)
138reltol = sqrt(epsilon(1._TKC))
139reltol
140+0.14901161193847656E-7
141isClose(data, atad(1:size(data)), reltol = reltol)
142T, T, T, T, T
143call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
144
145lenData = getUnifRand(5, 100)
146lenData
147+55
148data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
149data
150(+1.68789420711854165812342300043180369, +0.166223561058206621688012189522863174), (+1.43223283891117073422221473433039377, +0.375692896520601175959323260349543215), (+1.65624489879912771001175797918975938, +0.863747659564364016784285763927926211), (+1.27378771784590987354806261638966371, +0.696395239443218381413244673719751888), (+1.87590772715908498278221011544617539, +0.498388571453540123791153398916343411E-1), (+1.91972250609202716809157185028547910, +0.621078313676275718672779680048864671), (+1.40791182345370005956241509084939709, +0.121917153820459000133744824259731833), (+1.41096302315264529742070802549108616, +0.113507209665251424816567078690798809), (+1.29806409856345282904996280842767008, +0.203762438939568392617955428738274618E-1), (+1.74355126338673465763552610279021415, +0.335686964330245069413381160280830036), (+1.07465358382337152189005192931774359, +0.685240342346144296562145170683071794), (+1.99169866473824585189171476372739738, +0.330364024830544234803277756046389663), (+1.82410962681620037798497418178725411, +0.679346354249755086961392541615436111), (+1.32693810284903782152242845957542004, +0.345605587635485156696650941185384510), (+1.51286957802769203435762215111811953, +0.335764178541566077501246809372397843), (+1.78799523560879123858514728330706379, +0.986430856764207526357230884972696669), (+1.58346088922366686350960699577180855, +0.660479714840861567924564545689527087), (+1.30196460226890595545535075819779490, +0.810670171322234344448431413352147806), (+1.89493575256143859806248321043926172, +0.942832190481070212144755765470266453), (+1.19773386330841153951915061181399461, +0.178737399504825196313254699565608133), (+1.85979855695360125784970323919194639, +0.152977794711790015516567718162448981), (+1.43659435446160144529700143687650417, +0.349175085484308047980512146742517269), (+1.18747708215435658108621435263562001, +0.677400737995925942004566822735879239), (+1.12257308797176719380131296236233573, +0.670245089277250814631754959189380812), (+1.28152258364968547301832247305636219, +0.335602255857706933770804775534449498), (+1.51521580221057230928915798305212611, +0.505886126128454082690130905960776163), (+1.97403582509863834104220560315288372, +0.923557063704853875348233874145459071), (+1.17346387523232325317070834992453264, +0.290705565661182017682147693107084815), (+1.21508460211016064545867096625179417, +0.952376004164593622324820836509083019E-1), (+1.27741151537897477035783535913703721, +0.596474358847981541272510876820513814), (+1.29633922867882612928111231829386545, +0.365429487523529288930682074866531156), (+1.28293032456357383494667466516014678, +0.640159754391660969262231491240879846), (+1.01013414964021086349506621451632108, +0.975821918845789029087682370615111185), (+1.55652989462954314512120034038486041, +0.120682549226313671680823611839500375), (+1.01203444564848565340503132183232975, +0.660373768844403811788585845295484505), (+1.49516419034758039902366611555565567, +0.569624121271100024987112663230325926), (+1.48449651697121371000515909674117328, +0.369286941831730753837032445742642044), (+1.02816124525747273697907744329171385, +0.648655585892713195508659025658085958), (+1.13031433466263969848888037658869724, +0.640026806229236023436832367394450341), (+1.60471984928345608994183629675331034, +0.234738124078679859789549302620414654), (+1.21769825883497827263279793047760812, +0.927655253415599080126838917407822365), (+1.63872229019157860890261702240559149, +0.752707574840905016700709170925980795), (+1.42560999916427435803801865280410323, +0.533998769378250195186564635336683649), (+1.71556504853350358213539306583337883, +0.921668067328087792736111414676912438), (+1.74282500005292834904449584231797328, +0.684291345262218822965128780407913424), (+1.45205493125032077210762313356263236, +0.380864453549036801358065483420193032), (+1.62816624654629767159450779533927289, +0.701732119098223933337535348648730097), (+1.20760310495219655822173226342792792, +0.413802444907704690846008314942047891), (+1.76245305746218854548483792332956189, +0.818076020081189352843231170990922593), (+1.30957426868393635779717142702077600, +0.343496195368044089931201021157816617), (+1.02810267803379546787423882531470467, +0.581149190428970615023006382465284860E-2), (+1.70909976557269716125621755475281691, +0.942492942868558359559516142884709942), (+1.32311681467004321630893498973044453, +0.210150433020626529922943181635428702), (+1.85693602980695934707586371593699225, +0.791385566836940492932037087097729644), (+1.39214637083637850231011393596795019, +0.339924150888592285601653332254595343)
151
152atad = getFFTR(getFFTF(data))
153atad = atad / size(atad)
154atad
155(+1.68789420711854165812342300043180389, +0.166223561058206621688012189522863174), (+1.43223283891117073422221473433039358, +0.375692896520601175959323260349543311), (+1.65624489879912771001175797918975899, +0.863747659564364016784285763927926307), (+1.27378771784590987354806261638966332, +0.696395239443218381413244673719752177), (+1.87590772715908498278221011544617539, +0.498388571453540123791153398916341245E-1), (+1.91972250609202716809157185028547910, +0.621078313676275718672779680048864575), (+1.40791182345370005956241509084939709, +0.121917153820459000133744824259731736), (+1.41096302315264529742070802549108616, +0.113507209665251424816567078690798557), (+1.29806409856345282904996280842767047, +0.203762438939568392617955428738274618E-1), (+1.74355126338673465763552610279021358, +0.335686964330245069413381160280830228), (+1.07465358382337152189005192931774340, +0.685240342346144296562145170683071986), (+1.99169866473824585189171476372739681, +0.330364024830544234803277756046389711), (+1.82410962681620037798497418178725430, +0.679346354249755086961392541615436400), (+1.32693810284903782152242845957541965, +0.345605587635485156696650941185384607), (+1.51286957802769203435762215111811953, +0.335764178541566077501246809372397987), (+1.78799523560879123858514728330706398, +0.986430856764207526357230884972696861), (+1.58346088922366686350960699577180855, +0.660479714840861567924564545689526991), (+1.30196460226890595545535075819779471, +0.810670171322234344448431413352147806), (+1.89493575256143859806248321043926133, +0.942832190481070212144755765470266164), (+1.19773386330841153951915061181399461, +0.178737399504825196313254699565608085), (+1.85979855695360125784970323919194639, +0.152977794711790015516567718162449077), (+1.43659435446160144529700143687650417, +0.349175085484308047980512146742517414), (+1.18747708215435658108621435263562001, +0.677400737995925942004566822735879336), (+1.12257308797176719380131296236233573, +0.670245089277250814631754959189380812), (+1.28152258364968547301832247305636238, +0.335602255857706933770804775534449498), (+1.51521580221057230928915798305212572, +0.505886126128454082690130905960776259), (+1.97403582509863834104220560315288353, +0.923557063704853875348233874145459071), (+1.17346387523232325317070834992453245, +0.290705565661182017682147693107084815), (+1.21508460211016064545867096625179417, +0.952376004164593622324820836509083982E-1), (+1.27741151537897477035783535913703663, +0.596474358847981541272510876820513814), (+1.29633922867882612928111231829386545, +0.365429487523529288930682074866531060), (+1.28293032456357383494667466516014697, +0.640159754391660969262231491240879750), (+1.01013414964021086349506621451632127, +0.975821918845789029087682370615111185), (+1.55652989462954314512120034038486041, +0.120682549226313671680823611839500495), (+1.01203444564848565340503132183232937, +0.660373768844403811788585845295484505), (+1.49516419034758039902366611555565528, +0.569624121271100024987112663230326022), (+1.48449651697121371000515909674117328, +0.369286941831730753837032445742642140), (+1.02816124525747273697907744329171327, +0.648655585892713195508659025658085958), (+1.13031433466263969848888037658869724, +0.640026806229236023436832367394450438), (+1.60471984928345608994183629675331015, +0.234738124078679859789549302620414798), (+1.21769825883497827263279793047760831, +0.927655253415599080126838917407822268), (+1.63872229019157860890261702240559091, +0.752707574840905016700709170925980602), (+1.42560999916427435803801865280410303, +0.533998769378250195186564635336683553), (+1.71556504853350358213539306583337864, +0.921668067328087792736111414676912149), (+1.74282500005292834904449584231797328, +0.684291345262218822965128780407913617), (+1.45205493125032077210762313356263178, +0.380864453549036801358065483420192839), (+1.62816624654629767159450779533927270, +0.701732119098223933337535348648730289), (+1.20760310495219655822173226342792772, +0.413802444907704690846008314942048131), (+1.76245305746218854548483792332956208, +0.818076020081189352843231170990922593), (+1.30957426868393635779717142702077581, +0.343496195368044089931201021157816521), (+1.02810267803379546787423882531470467, +0.581149190428970615023006382465294490E-2), (+1.70909976557269716125621755475281710, +0.942492942868558359559516142884709461), (+1.32311681467004321630893498973044414, +0.210150433020626529922943181635428798), (+1.85693602980695934707586371593699244, +0.791385566836940492932037087097729836), (+1.39214637083637850231011393596794999, +0.339924150888592285601653332254595487), (+0.00000000000000000000000000000000000, -0.962964972193617926527988971292463659E-34), (+0.577778983316170755916793382775478196E-33, -0.240741243048404481631997242823115915E-34), (+0.00000000000000000000000000000000000, +0.481482486096808963263994485646231830E-34), (-0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34), (-0.962964972193617926527988971292463659E-34, +0.722223729145213444895991728469347744E-34), (-0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34), (-0.577778983316170755916793382775478196E-33, -0.962964972193617926527988971292463659E-34), (+0.00000000000000000000000000000000000, +0.144444745829042688979198345693869549E-33), (+0.192592994438723585305597794258492732E-33, +0.192592994438723585305597794258492732E-33)
156reltol = sqrt(epsilon(1._TKC))
157reltol
158+0.138777878078144567552953958511352539E-16
159isClose(data, atad(1:size(data)), reltol = reltol)
160T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
161call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
162
163lenData = getUnifRand(5, 100)
164lenData
165+5
166data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
167data
168+1.16443157, +1.25335574, +1.27871597, +1.57435679, +1.40536046
169
170atad = getFFTR(getFFTF(data))
171atad = atad * 2 / size(atad)
172atad
173+1.16443157, +1.25335562, +1.27871585, +1.57435679, +1.40536046, +0.119209290E-6, -0.596046448E-7, +0.596046448E-7
174reltol = sqrt(epsilon(1._TKC))
175reltol
176+0.345266977E-3
177isClose(data, atad(1:size(data)), reltol = reltol)
178T, T, T, T, T
179call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
180
181lenData = getUnifRand(5, 100)
182lenData
183+40
184data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
185data
186+1.3777176857687341, +1.9458980507403250, +1.2393354481078145, +1.6317823643600939, +1.7071730447282789, +1.0620429393132860, +1.4197019170948748, +1.5625247183398991, +1.4730200057487557, +1.4501790160887298, +1.5622346145587209, +1.0420063810192746, +1.5450066320235150, +1.6080544692524752, +1.9775112153963079, +1.9515958978540766, +1.4150472867249744, +1.6032816108342716, +1.5157539867749314, +1.7649943419280389, +1.8211539267154129, +1.2945562875227079, +1.5353605810636739, +1.9017307300642972, +1.0620966867558299, +1.9130826859859869, +1.6190030803496476, +1.7561858477611842, +1.1650631499587010, +1.1794144513721225, +1.4273168831973528, +1.2964453376747094, +1.1040859653746564, +1.4076275075446869, +1.5082582990315851, +1.7371878393834810, +1.2716602198127185, +1.3943985237151031, +1.6265934074577926, +1.7880777402969410
187
188atad = getFFTR(getFFTF(data))
189atad = atad * 2 / size(atad)
190atad
191+1.3777176857687339, +1.9458980507403254, +1.2393354481078140, +1.6317823643600946, +1.7071730447282787, +1.0620429393132860, +1.4197019170948741, +1.5625247183398994, +1.4730200057487552, +1.4501790160887298, +1.5622346145587203, +1.0420063810192750, +1.5450066320235147, +1.6080544692524752, +1.9775112153963068, +1.9515958978540768, +1.4150472867249744, +1.6032816108342716, +1.5157539867749312, +1.7649943419280385, +1.8211539267154127, +1.2945562875227077, +1.5353605810636735, +1.9017307300642972, +1.0620966867558297, +1.9130826859859869, +1.6190030803496471, +1.7561858477611836, +1.1650631499587005, +1.1794144513721225, +1.4273168831973524, +1.2964453376747092, +1.1040859653746562, +1.4076275075446874, +1.5082582990315849, +1.7371878393834812, +1.2716602198127183, +1.3943985237151033, +1.6265934074577926, +1.7880777402969406, +0.33306690738754696E-15, +0.11102230246251565E-15, +0.66613381477509392E-15, +0.11102230246251565E-15, +0.22204460492503131E-15, +0.0000000000000000, +0.88817841970012523E-15, +0.22204460492503131E-15, -0.11102230246251565E-15, +0.0000000000000000, +0.44408920985006262E-15, +0.88817841970012523E-15, +0.0000000000000000, +0.22204460492503131E-15, +0.44408920985006262E-15, +0.33306690738754696E-15, -0.22204460492503131E-15, +0.33306690738754696E-15, +0.44408920985006262E-15, +0.11102230246251565E-14, +0.11102230246251565E-15, +0.22204460492503131E-15, +0.44408920985006262E-15, +0.11102230246251565E-14
192reltol = sqrt(epsilon(1._TKC))
193reltol
194+0.14901161193847656E-7
195isClose(data, atad(1:size(data)), reltol = reltol)
196T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
197call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
198
199lenData = getUnifRand(5, 100)
200lenData
201+10
202data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
203data
204+1.44243669378564193020527343622202164, +1.91904080315271516206233244696945386, +1.09957293638956702306865145216547718, +1.56193328430512494455125460873099787, +1.65954990171414180430287222206604261, +1.69474960620761453248908429264517129, +1.44268101312887457441928568865773042, +1.85025971755541004305722913926887068, +1.64725032760774836299924794977700217, +1.59627382511304726436851374166289277
205
206atad = getFFTR(getFFTF(data))
207atad = atad * 2 / size(atad)
208atad
209+1.44243669378564193020527343622202145, +1.91904080315271516206233244696945386, +1.09957293638956702306865145216547679, +1.56193328430512494455125460873099825, +1.65954990171414180430287222206604261, +1.69474960620761453248908429264517129, +1.44268101312887457441928568865773022, +1.85025971755541004305722913926887068, +1.64725032760774836299924794977700217, +1.59627382511304726436851374166289277, +0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000, -0.288889491658085377958396691387739098E-33, +0.962964972193617926527988971292463659E-34, +0.288889491658085377958396691387739098E-33
210reltol = sqrt(epsilon(1._TKC))
211reltol
212+0.138777878078144567552953958511352539E-16
213isClose(data, atad(1:size(data)), reltol = reltol)
214T, T, T, T, T, T, T, T, T, T
215call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
216
217lenData = getUnifRand(5, 100)
218lenData
219+34
220data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
221data
222(+1.17512476, +0.932137966), (+1.72848046, +0.709741592), (+1.89449096, +0.589980483E-1), (+1.93549371, +0.366060138), (+1.57515621, +0.136770189), (+1.10253155, +0.954019189), (+1.89772725, +0.543094397), (+1.86522365, +0.833849490), (+1.68023181, +0.351648927), (+1.25663328, +0.170788705), (+1.88291991, +0.632758021), (+1.54187346, +0.556432426), (+1.05630803, +0.599485517), (+1.10935712, +0.748888671), (+1.85087514, +0.622929990), (+1.16343689, +0.223722637), (+1.84036231, +0.249915481), (+1.42640126, +0.414025187E-1), (+1.39781272, +0.792628407), (+1.56463027, +0.155498445), (+1.30252266, +0.138534248), (+1.97710013, +0.679280162), (+1.37494838, +0.183295608E-1), (+1.10319197, +0.243177354), (+1.77500021, +0.501084805), (+1.26089764, +0.141669333), (+1.93841362, +0.663027227), (+1.88337171, +0.967440307), (+1.26145697, +0.922623277E-1), (+1.29961479, +0.583453774E-1), (+1.37733424, +0.121445596), (+1.32164454, +0.353018343), (+1.62940919, +0.404737711), (+1.05223894, +0.240440965E-1)
223
224atad = getFFTR(getFFTF(data))
225atad = atad / size(atad)
226atad
227(+1.17512476, +0.932137966), (+1.72848034, +0.709741592), (+1.89449072, +0.589979887E-1), (+1.93549323, +0.366059959), (+1.57515621, +0.136770219), (+1.10253167, +0.954019308), (+1.89772725, +0.543094218), (+1.86522365, +0.833849370), (+1.68023169, +0.351649016), (+1.25663328, +0.170788869), (+1.88291991, +0.632758021), (+1.54187346, +0.556432366), (+1.05630803, +0.599485517), (+1.10935712, +0.748888850), (+1.85087526, +0.622929990), (+1.16343689, +0.223722905), (+1.84036231, +0.249915421), (+1.42640138, +0.414024964E-1), (+1.39781284, +0.792628169), (+1.56463027, +0.155498341), (+1.30252266, +0.138534293), (+1.97710001, +0.679280162), (+1.37494838, +0.183295757E-1), (+1.10319185, +0.243177146), (+1.77499986, +0.501084745), (+1.26089740, +0.141669244), (+1.93841350, +0.663027048), (+1.88337159, +0.967440009), (+1.26145673, +0.922624171E-1), (+1.29961455, +0.583453774E-1), (+1.37733424, +0.121445633), (+1.32164454, +0.353018343), (+1.62940919, +0.404737711), (+1.05223894, +0.240440369E-1), (+0.298023224E-6, +0.298023224E-7), (+0.298023224E-6, +0.119209290E-6), (+0.00000000, -0.894069672E-7), (+0.00000000, -0.268220901E-6), (+0.596046448E-7, +0.596046448E-7), (+0.178813934E-6, +0.178813934E-6), (+0.119209290E-6, -0.894069672E-7), (+0.596046448E-7, -0.193715096E-6), (+0.119209290E-6, -0.149011612E-6), (+0.178813934E-6, +0.894069672E-7), (+0.119209290E-6, -0.894069672E-7), (-0.596046448E-7, -0.119209290E-6), (+0.00000000, -0.596046448E-7), (-0.178813934E-6, -0.149011612E-6), (+0.596046448E-7, +0.596046448E-7), (-0.596046448E-7, +0.819563866E-7), (+0.00000000, +0.119209290E-6), (-0.119209290E-6, +0.163912773E-6), (+0.596046448E-7, -0.149011612E-7), (+0.119209290E-6, -0.298023224E-7), (+0.119209290E-6, +0.745058060E-7), (+0.596046448E-7, +0.178813934E-6), (+0.238418579E-6, +0.596046448E-7), (+0.178813934E-6, +0.149011612E-6), (+0.119209290E-6, +0.596046448E-7), (+0.178813934E-6, +0.357627869E-6), (+0.298023224E-6, -0.894069672E-7), (+0.238418579E-6, +0.119209290E-6), (+0.238418579E-6, -0.372529030E-7), (-0.596046448E-7, +0.745058060E-7)
228reltol = sqrt(epsilon(1._TKC))
229reltol
230+0.345266977E-3
231isClose(data, atad(1:size(data)), reltol = reltol)
232T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
233call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
234
235lenData = getUnifRand(5, 100)
236lenData
237+10
238data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
239data
240(+1.6338280307998692, +0.65137963748185423), (+1.3910612874059591, +0.40627948137335135), (+1.0146643539448505, +0.99260568051679088), (+1.0779243889876833, +0.18645276899334495), (+1.9366211078683540, +0.45253053883424843), (+1.7769170838866777, +0.69103772279459341), (+1.4319777577940207, +0.57037946295529962), (+1.9446234702437890, +0.50305231765265135), (+1.6249473799164744, +0.16752688388811199), (+1.9447078858048816, +0.49428550410976679)
241
242atad = getFFTR(getFFTF(data))
243atad = atad / size(atad)
244atad
245(+1.6338280307998692, +0.65137963748185435), (+1.3910612874059591, +0.40627948137335135), (+1.0146643539448505, +0.99260568051679077), (+1.0779243889876835, +0.18645276899334509), (+1.9366211078683540, +0.45253053883424815), (+1.7769170838866781, +0.69103772279459330), (+1.4319777577940207, +0.57037946295529918), (+1.9446234702437888, +0.50305231765265090), (+1.6249473799164744, +0.16752688388811188), (+1.9447078858048812, +0.49428550410976702), (+0.11102230246251565E-15, +0.11102230246251565E-15), (+0.0000000000000000, -0.30531133177191805E-15), (-0.11102230246251565E-15, +0.27755575615628914E-15), (-0.11102230246251565E-15, +0.11102230246251565E-15), (-0.11102230246251565E-15, +0.44408920985006262E-15), (+0.22204460492503131E-15, +0.22204460492503131E-15)
246reltol = sqrt(epsilon(1._TKC))
247reltol
248+0.14901161193847656E-7
249isClose(data, atad(1:size(data)), reltol = reltol)
250T, T, T, T, T, T, T, T, T, T
251call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
252
253lenData = getUnifRand(5, 100)
254lenData
255+36
256data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
257data
258(+1.70220331106994606782221633909028884, +0.486439386560702568467044218729766073), (+1.22451509643737447455554557543743894, +0.905609282561806858020467970390927156), (+1.69399625306162744783327918457655554, +0.526528528124091063567160595917862848), (+1.30553293577012461805129424024158575, +0.353680482786837410827297213916219622), (+1.13690217101533393827835801186271116, +0.366356579976553511911669208842696153E-1), (+1.66878421035808819088006196745261227, +0.637780781751602545234990481545098899E-1), (+1.07941194529278313766311353738787194, +0.404677246569163722844940587955876264), (+1.03358561248324282650037743465894889, +0.166095169767908073466079522782981846), (+1.27924194907915236993509394169192645, +0.467262785162316157244670087943651145), (+1.53124938470532352416489618759651110, +0.710655135181860513980928989776986921), (+1.46996769743085604793337401562265556, +0.691053773824688453085616622271593296), (+1.66611569927294807451827544398116907, +0.744999250522881964733071199351198346), (+1.11468397432564453941595390479082248, +0.874586459112892823363216439711282153), (+1.59041175095541333798160689042375947, +0.152212439141672559907126609214001247), (+1.66928538544224450851047235632051712, +0.623777692751008342690764026543573970), (+1.96472385580399822772947042118507648, +0.299571319730874642598225775149426835), (+1.38085110058646915601553807949184680, +0.764807441280836422968292526167654078), (+1.10021052038870749706121789909489145, +0.342326959485939154427386072163598965), (+1.30856191545611844266310731811539383, +0.168124154122139534558074654901619785), (+1.71211719567026560900553339034350112, +0.150352242336737277744668296349061603), (+1.82489359877779513987270469016740359, +0.417126015839042768161572426390353351), (+1.58405816057267095472445088240772870, +0.746659933518548213884865598003737910), (+1.61737529679819072156385124740911193, +0.352130905904675351478975339692852462), (+1.02639225161005398582662919344488440, +0.334491733029578272125564179477326097), (+1.11793386164148187750783006754710362, +0.185156113315963290094110377390960778), (+1.36788609971215272228551613265558081, +0.319580775251757342354854826001356352E-1), (+1.94616802203671984904286537504555165, +0.848530354961932607121631025883744714), (+1.98692642063220975592058555074779867, +0.699196891813238833322172263242563327), (+1.94425761755198134374110782924368098, +0.770519748723599315738729711734827669), (+1.44555413065309292631819549390444923, +0.676939948322753245051765052712702426), (+1.25675455288057970202861808374471255, +0.754291167566360929972046232654946190), (+1.40981295046267885360217323367921701, +0.264972576152761870021214639237186204), (+1.10933889860407695376554008605837063, +0.748955489508501093941912672226588190), (+1.94434805567824431605258356467423091, +0.318619185763927166550054781661890879), (+1.01168440413555993355801338192511786, +0.962153738065958506582321001792247610), (+1.19142753942799492845942605615934064, +0.600241295299470195056253400179806527)
259
260atad = getFFTR(getFFTF(data))
261atad = atad / size(atad)
262atad
263(+1.70220331106994606782221633909028884, +0.486439386560702568467044218729766073), (+1.22451509643737447455554557543743875, +0.905609282561806858020467970390927156), (+1.69399625306162744783327918457655535, +0.526528528124091063567160595917862848), (+1.30553293577012461805129424024158575, +0.353680482786837410827297213916219670), (+1.13690217101533393827835801186271136, +0.366356579976553511911669208842694588E-1), (+1.66878421035808819088006196745261246, +0.637780781751602545234990481545096732E-1), (+1.07941194529278313766311353738787213, +0.404677246569163722844940587955875976), (+1.03358561248324282650037743465894889, +0.166095169767908073466079522782981605), (+1.27924194907915236993509394169192645, +0.467262785162316157244670087943651241), (+1.53124938470532352416489618759651110, +0.710655135181860513980928989776987017), (+1.46996769743085604793337401562265537, +0.691053773824688453085616622271593489), (+1.66611569927294807451827544398116869, +0.744999250522881964733071199351198442), (+1.11468397432564453941595390479082248, +0.874586459112892823363216439711282442), (+1.59041175095541333798160689042375966, +0.152212439141672559907126609214001487), (+1.66928538544224450851047235632051750, +0.623777692751008342690764026543574067), (+1.96472385580399822772947042118507687, +0.299571319730874642598225775149427028), (+1.38085110058646915601553807949184680, +0.764807441280836422968292526167654174), (+1.10021052038870749706121789909489126, +0.342326959485939154427386072163599061), (+1.30856191545611844266310731811539383, +0.168124154122139534558074654901619593), (+1.71211719567026560900553339034350150, +0.150352242336737277744668296349061506), (+1.82489359877779513987270469016740378, +0.417126015839042768161572426390353448), (+1.58405816057267095472445088240772870, +0.746659933518548213884865598003738102), (+1.61737529679819072156385124740911193, +0.352130905904675351478975339692852462), (+1.02639225161005398582662919344488440, +0.334491733029578272125564179477326242), (+1.11793386164148187750783006754710381, +0.185156113315963290094110377390960682), (+1.36788609971215272228551613265558042, +0.319580775251757342354854826001356111E-1), (+1.94616802203671984904286537504555165, +0.848530354961932607121631025883744232), (+1.98692642063220975592058555074779848, +0.699196891813238833322172263242562942), (+1.94425761755198134374110782924368098, +0.770519748723599315738729711734827861), (+1.44555413065309292631819549390444904, +0.676939948322753245051765052712702714), (+1.25675455288057970202861808374471274, +0.754291167566360929972046232654946479), (+1.40981295046267885360217323367921701, +0.264972576152761870021214639237185915), (+1.10933889860407695376554008605837063, +0.748955489508501093941912672226588190), (+1.94434805567824431605258356467423072, +0.318619185763927166550054781661890830), (+1.01168440413555993355801338192511805, +0.962153738065958506582321001792247129), (+1.19142753942799492845942605615934064, +0.600241295299470195056253400179806334), (-0.288889491658085377958396691387739098E-33, +0.132407683676622464897598483552713753E-33), (-0.577778983316170755916793382775478196E-33, +0.722223729145213444895991728469347744E-34), (-0.192592994438723585305597794258492732E-33, +0.216667118743564033468797518540804323E-33), (+0.00000000000000000000000000000000000, +0.842594350669415685711990349880905702E-34), (+0.192592994438723585305597794258492732E-33, -0.722223729145213444895991728469347744E-34), (-0.962964972193617926527988971292463659E-34, -0.481482486096808963263994485646231830E-34), (+0.385185988877447170611195588516985464E-33, +0.481482486096808963263994485646231830E-34), (+0.192592994438723585305597794258492732E-33, +0.481482486096808963263994485646231830E-34), (+0.00000000000000000000000000000000000, -0.962964972193617926527988971292463659E-34), (-0.385185988877447170611195588516985464E-33, -0.288889491658085377958396691387739098E-33), (-0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34), (-0.288889491658085377958396691387739098E-33, -0.240741243048404481631997242823115915E-33), (-0.962964972193617926527988971292463659E-34, +0.481482486096808963263994485646231830E-34), (-0.385185988877447170611195588516985464E-33, -0.144444745829042688979198345693869549E-33), (+0.962964972193617926527988971292463659E-34, +0.180555932286303361223997932117336936E-33), (+0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000), (+0.00000000000000000000000000000000000, -0.192592994438723585305597794258492732E-33), (-0.481482486096808963263994485646231830E-33, -0.962964972193617926527988971292463659E-34), (-0.192592994438723585305597794258492732E-33, +0.192592994438723585305597794258492732E-33), (-0.385185988877447170611195588516985464E-33, -0.481482486096808963263994485646231830E-34), (+0.192592994438723585305597794258492732E-33, +0.132407683676622464897598483552713753E-33), (+0.962964972193617926527988971292463659E-34, +0.722223729145213444895991728469347744E-34), (-0.962964972193617926527988971292463659E-34, +0.433334237487128066937595037081608647E-33), (+0.00000000000000000000000000000000000, +0.385185988877447170611195588516985464E-33), (-0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34), (-0.385185988877447170611195588516985464E-33, -0.385185988877447170611195588516985464E-33), (+0.00000000000000000000000000000000000, +0.00000000000000000000000000000000000), (+0.00000000000000000000000000000000000, +0.120370621524202240815998621411557957E-33)
264reltol = sqrt(epsilon(1._TKC))
265reltol
266+0.138777878078144567552953958511352539E-16
267isClose(data, atad(1:size(data)), reltol = reltol)
268T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
269call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
270
271lenData = getUnifRand(5, 100)
272lenData
273+23
274data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
275data
276+1.34036005, +1.94546139, +1.59637427, +1.69906485, +1.77807975, +1.93165493, +1.12089980, +1.42546201, +1.36523438, +1.67679882, +1.23037696, +1.31761873, +1.33219111, +1.61048388, +1.32006311, +1.52421272, +1.53146827, +1.57978153, +1.79862595, +1.00778282, +1.59926522, +1.31573677, +1.67960870
277
278atad = getFFTR(getFFTF(data))
279atad = atad * 2 / size(atad)
280atad
281+1.34035993, +1.94546127, +1.59637439, +1.69906485, +1.77807951, +1.93165469, +1.12089968, +1.42546177, +1.36523449, +1.67679858, +1.23037708, +1.31761849, +1.33219123, +1.61048365, +1.32006323, +1.52421236, +1.53146815, +1.57978153, +1.79862583, +1.00778282, +1.59926510, +1.31573677, +1.67960858, +0.119209290E-6, -0.238418579E-6, +0.238418579E-6, -0.119209290E-6, +0.357627869E-6, -0.596046448E-7, +0.655651093E-6, +0.119209290E-6, +0.596046448E-7
282reltol = sqrt(epsilon(1._TKC))
283reltol
284+0.345266977E-3
285isClose(data, atad(1:size(data)), reltol = reltol)
286T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
287call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
288
289lenData = getUnifRand(5, 100)
290lenData
291+56
292data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
293data
294+1.5397765559508936, +1.8275598640560662, +1.6620323662438201, +1.4633816092359342, +1.3044802520954095, +1.4376171039734349, +1.5048051922072245, +1.6365561315721959, +1.1241586630791518, +1.2861815975615163, +1.4049049493106676, +1.9180358397899655, +1.5845618437613100, +1.3406389446920999, +1.8202593680226380, +1.3376126350497077, +1.1388988113098777, +1.3549153206194688, +1.1684725844411499, +1.2990500788439552, +1.3402926619061573, +1.0297544769790585, +1.3975769829234794, +1.5704602530278891, +1.7133687519916050, +1.9090021057652091, +1.4130151523133359, +1.7947187242369989, +1.8230604065792257, +1.9229676479951139, +1.6525944153801191, +1.6155003874943881, +1.3590982406211345, +1.6643587559415822, +1.3149099128736879, +1.9535905409006693, +1.7475939617799581, +1.7555632186881014, +1.3919418531251457, +1.8762074605546644, +1.1213328798274591, +1.4053190268450400, +1.6234013238644764, +1.2784155910232371, +1.5498388428875263, +1.8158605260125094, +1.6810607514816496, +1.9728243237782457, +1.6282162822810369, +1.8756243312810397, +1.2235802756124661, +1.2410613960761048, +1.8572422846739145, +1.5669886217153697, +1.6813794333101040, +1.4053121057006348
295
296atad = getFFTR(getFFTF(data))
297atad = atad * 2 / size(atad)
298atad
299+1.5397765559508938, +1.8275598640560660, +1.6620323662438199, +1.4633816092359344, +1.3044802520954095, +1.4376171039734353, +1.5048051922072245, +1.6365561315721961, +1.1241586630791520, +1.2861815975615161, +1.4049049493106676, +1.9180358397899653, +1.5845618437613100, +1.3406389446920994, +1.8202593680226378, +1.3376126350497075, +1.1388988113098777, +1.3549153206194684, +1.1684725844411501, +1.2990500788439550, +1.3402926619061570, +1.0297544769790583, +1.3975769829234794, +1.5704602530278891, +1.7133687519916050, +1.9090021057652087, +1.4130151523133356, +1.7947187242369982, +1.8230604065792253, +1.9229676479951134, +1.6525944153801184, +1.6155003874943876, +1.3590982406211347, +1.6643587559415820, +1.3149099128736881, +1.9535905409006691, +1.7475939617799578, +1.7555632186881012, +1.3919418531251457, +1.8762074605546644, +1.1213328798274591, +1.4053190268450397, +1.6234013238644764, +1.2784155910232369, +1.5498388428875263, +1.8158605260125094, +1.6810607514816494, +1.9728243237782452, +1.6282162822810369, +1.8756243312810397, +1.2235802756124663, +1.2410613960761048, +1.8572422846739143, +1.5669886217153695, +1.6813794333101040, +1.4053121057006348, +0.55511151231257827E-15, +0.11102230246251565E-15, +0.66613381477509392E-15, +0.22204460492503131E-15, +0.44408920985006262E-15, +0.0000000000000000, +0.77715611723760958E-15, +0.55511151231257827E-15
300reltol = sqrt(epsilon(1._TKC))
301reltol
302+0.14901161193847656E-7
303isClose(data, atad(1:size(data)), reltol = reltol)
304T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
305call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
306
307lenData = getUnifRand(5, 100)
308lenData
309+21
310data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
311data
312+1.93561929128167021060916598020006226, +1.08028284063025884711865064374085931, +1.21494431395654543451539538856045248, +1.06470400974591451186953822638085884, +1.84184537615201405078185745447369801, +1.93471735593538996812689131054269005, +1.29085997916983258830879388154074134, +1.21763829872474129662089043745987160, +1.43813545373760574356990773080099554, +1.05574410864629522096744857880329187, +1.24418145422952268510329382227002240, +1.54979756168869336894183910802573631, +1.97147282514294063460005439375351447, +1.96935617391412463116982205072316054, +1.04669882280751526866220962121847659, +1.35356941423579712899162301607293720, +1.67387036201363405631197024077944321, +1.59158118225367214482666045953913929, +1.75104926783099217173464371321598111, +1.34073329861741855148708616161039410, +1.19040924940472359391718526665348319
313
314atad = getFFTR(getFFTF(data))
315atad = atad * 2 / size(atad)
316atad
317+1.93561929128167021060916598020006226, +1.08028284063025884711865064374085931, +1.21494431395654543451539538856045248, +1.06470400974591451186953822638085884, +1.84184537615201405078185745447369801, +1.93471735593538996812689131054269005, +1.29085997916983258830879388154074153, +1.21763829872474129662089043745987160, +1.43813545373760574356990773080099573, +1.05574410864629522096744857880329187, +1.24418145422952268510329382227002240, +1.54979756168869336894183910802573650, +1.97147282514294063460005439375351466, +1.96935617391412463116982205072316054, +1.04669882280751526866220962121847679, +1.35356941423579712899162301607293700, +1.67387036201363405631197024077944321, +1.59158118225367214482666045953913929, +1.75104926783099217173464371321598072, +1.34073329861741855148708616161039390, +1.19040924940472359391718526665348300, -0.192592994438723585305597794258492732E-33, -0.385185988877447170611195588516985464E-33, -0.288889491658085377958396691387739098E-33, -0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33, -0.385185988877447170611195588516985464E-33, -0.577778983316170755916793382775478196E-33, +0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33
318reltol = sqrt(epsilon(1._TKC))
319reltol
320+0.138777878078144567552953958511352539E-16
321isClose(data, atad(1:size(data)), reltol = reltol)
322T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
323call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
324
325lenData = getUnifRand(5, 100)
326lenData
327+30
328data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
329data
330(+1.69855642, +0.702587783), (+1.89894581, +0.691379130), (+1.09452343, +0.613680899), (+1.98414981, +0.321711302E-1), (+1.22363019, +0.199068069), (+1.68492699, +0.647057831), (+1.61251628, +0.355885684), (+1.98092008, +0.525670588), (+1.36982524, +0.868309140E-1), (+1.31698418, +0.665876269), (+1.91770720, +0.564097285), (+1.70361781, +0.673703194), (+1.89978266, +0.719604909), (+1.10272670, +0.612896502), (+1.78029513, +0.827548504), (+1.83498144, +0.987769902), (+1.64897537, +0.766338050), (+1.02754951, +0.858097076), (+1.37769675, +0.911590993), (+1.18623114, +0.977602959), (+1.84262347, +0.699541330), (+1.83752728, +0.468921959), (+1.99608111, +0.555964768), (+1.88271356, +0.888905168), (+1.77380466, +0.248316407), (+1.04961073, +0.419241190), (+1.27422380, +0.838185549), (+1.60808206, +0.996018231), (+1.29808068, +0.506799698), (+1.60586464, +0.529344857)
331
332atad = getFFTR(getFFTF(data))
333atad = atad / size(atad)
334atad
335(+1.69855654, +0.702587783), (+1.89894569, +0.691378951), (+1.09452343, +0.613680899), (+1.98414981, +0.321711004E-1), (+1.22363019, +0.199068099), (+1.68492687, +0.647057712), (+1.61251616, +0.355885684), (+1.98092008, +0.525670528), (+1.36982536, +0.868309066E-1), (+1.31698382, +0.665876210), (+1.91770720, +0.564097404), (+1.70361781, +0.673703074), (+1.89978266, +0.719604969), (+1.10272670, +0.612896442), (+1.78029490, +0.827548563), (+1.83498132, +0.987770081), (+1.64897549, +0.766338050), (+1.02754939, +0.858096957), (+1.37769675, +0.911590874), (+1.18623102, +0.977602959), (+1.84262347, +0.699541330), (+1.83752716, +0.468921959), (+1.99608088, +0.555964768), (+1.88271356, +0.888905048), (+1.77380490, +0.248316348), (+1.04961050, +0.419241130), (+1.27422380, +0.838185430), (+1.60808182, +0.996018171), (+1.29808092, +0.506799698), (+1.60586452, +0.529344797), (+0.238418579E-6, -0.596046448E-7), (+0.238418579E-6, -0.298023224E-7)
336reltol = sqrt(epsilon(1._TKC))
337reltol
338+0.345266977E-3
339isClose(data, atad(1:size(data)), reltol = reltol)
340T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
341call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
342
343lenData = getUnifRand(5, 100)
344lenData
345+76
346data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
347data
348(+1.0156790077852706, +0.33096443437623191), (+1.9068643185527339, +0.44493229172867477), (+1.2620990589213084, +0.90406941932175788), (+1.6570628863440056, +0.59926311494666173), (+1.2426012991053466, +0.11391187242197576), (+1.4996791561220932, +0.87282185752514008), (+1.0379424651614642, +0.34878595246219501), (+1.3528333017405498, +0.18949098840830625E-1), (+1.0528246211563421, +0.87401548681691066), (+1.1837819166184296, +0.26582264061980354), (+1.0469524695688834, +0.71351070293254759), (+1.8354561053373735, +0.71542499403048787), (+1.6698918434632164, +0.47944324596272592), (+1.1203195980067897, +0.63847019926875426), (+1.8760749522864373, +0.32549742576590290), (+1.5090911408657688, +0.19269959828559224), (+1.8239355892924638, +0.98862733596893904E-1), (+1.6294663370846614, +0.86445561662259696E-1), (+1.7277143097752798, +0.90008893076277430), (+1.9571289276026882, +0.31514881716589160), (+1.3411355409312886, +0.52710725527245905), (+1.2439704027267717, +0.52970929739281747E-1), (+1.7089334441585273, +0.65376510752946726), (+1.8391218569840220, +0.77685251694904134), (+1.4486507264024877, +0.84222432551867976), (+1.4479542839575517, +0.25746056984356103), (+1.4041339631384779, +0.26757144540826894), (+1.0837632939697104, +0.61182393574229221), (+1.3201680999908223, +0.95437228615369629E-1), (+1.4034913055051423, +0.24030847471257433), (+1.6411818075283018, +0.60541710721506881), (+1.6094720273933840, +0.43800847459732783E-1), (+1.0719684637520275, +0.71576322927280567), (+1.7955263977295535, +0.16127163876940587), (+1.7544825643652193, +0.98333697864245162), (+1.7278122918114995, +0.31107461433290007), (+1.4558850008909090, +0.57309331265314134), (+1.1977341747592147, +0.68979138811891716), (+1.6879753626171417, +0.69456796140688548), (+1.6514690193195962, +0.78849706945534370), (+1.5869251873319095, +0.95150076806622319), (+1.7895266984970952, +0.56187879161367615), (+1.5886159688805002, +0.89055858872252880), (+1.6497718563605943, +0.20399434913063852), (+1.7318293543294860, +0.73304798251923609), (+1.5233322150123578, +0.40394400956976972), (+1.1896148852433184, +0.36371267597161161), (+1.5887838201940574, +0.10418249770304910), (+1.8703964708492398, +0.37840491437296087), (+1.3437768653889606, +0.38129110260813959), (+1.3950667074817575, +0.73112395016182841), (+1.8320174102769862, +0.63442115409638333), (+1.8968225630856832, +0.45961378009059106), (+1.3841040603302743, +0.23719716377205047E-1), (+1.5768538490133319, +0.39448988979827282), (+1.6742219992258707, +0.14766406518994557), (+1.3949812202554326, +0.29223536067197375), (+1.6768028310836764, +0.86304279913331294), (+1.5814537613066157, +0.93714049549665801), (+1.6651589879127591, +0.25505763235641388), (+1.5764407614358424, +0.30625085711683320E-1), (+1.9172078595011799, +0.33304930702040325), (+1.8263353166731429, +0.35244067105971322), (+1.0519557951885217, +0.85893516817516169), (+1.5552040300561112, +0.37703208060968574), (+1.7920846849337493, +0.33990049819782386), (+1.6426312067961168, +0.51090551038764231), (+1.5548786513885089, +0.29138254787898099), (+1.5511422359010236, +0.76602949361076567), (+1.1936862310905101, +0.66601632751781015), (+1.9426590465967752, +0.22759158892260878), (+1.1006161519457427, +0.82337433849525210), (+1.3804772350945052, +0.73372065059202884), (+1.6258799012512761, +0.29576125591154456), (+1.7920283987350840, +0.42765029440688018), (+1.0869470049822150, +0.93670482668349786)
349
350atad = getFFTR(getFFTF(data))
351atad = atad / size(atad)
352atad
353(+1.0156790077852706, +0.33096443437623185), (+1.9068643185527341, +0.44493229172867493), (+1.2620990589213084, +0.90406941932175811), (+1.6570628863440053, +0.59926311494666207), (+1.2426012991053461, +0.11391187242197576), (+1.4996791561220930, +0.87282185752514041), (+1.0379424651614639, +0.34878595246219540), (+1.3528333017405494, +0.18949098840830958E-1), (+1.0528246211563419, +0.87401548681691088), (+1.1837819166184298, +0.26582264061980404), (+1.0469524695688834, +0.71351070293254759), (+1.8354561053373730, +0.71542499403048809), (+1.6698918434632162, +0.47944324596272592), (+1.1203195980067897, +0.63847019926875448), (+1.8760749522864368, +0.32549742576590335), (+1.5090911408657688, +0.19269959828559247), (+1.8239355892924638, +0.98862733596893820E-1), (+1.6294663370846616, +0.86445561662259848E-1), (+1.7277143097752798, +0.90008893076277419), (+1.9571289276026880, +0.31514881716589171), (+1.3411355409312882, +0.52710725527245894), (+1.2439704027267715, +0.52970929739281865E-1), (+1.7089334441585271, +0.65376510752946693), (+1.8391218569840215, +0.77685251694904101), (+1.4486507264024875, +0.84222432551867987), (+1.4479542839575514, +0.25746056984356125), (+1.4041339631384782, +0.26757144540826883), (+1.0837632939697102, +0.61182393574229221), (+1.3201680999908221, +0.95437228615369685E-1), (+1.4034913055051421, +0.24030847471257433), (+1.6411818075283016, +0.60541710721506847), (+1.6094720273933838, +0.43800847459732679E-1), (+1.0719684637520275, +0.71576322927280556), (+1.7955263977295535, +0.16127163876940581), (+1.7544825643652195, +0.98333697864245129), (+1.7278122918114993, +0.31107461433290001), (+1.4558850008909090, +0.57309331265314112), (+1.1977341747592147, +0.68979138811891705), (+1.6879753626171414, +0.69456796140688493), (+1.6514690193195964, +0.78849706945534348), (+1.5869251873319095, +0.95150076806622308), (+1.7895266984970952, +0.56187879161367604), (+1.5886159688805002, +0.89055858872252869), (+1.6497718563605943, +0.20399434913063852), (+1.7318293543294860, +0.73304798251923609), (+1.5233322150123578, +0.40394400956976984), (+1.1896148852433182, +0.36371267597161128), (+1.5887838201940572, +0.10418249770304915), (+1.8703964708492395, +0.37840491437296042), (+1.3437768653889606, +0.38129110260813959), (+1.3950667074817578, +0.73112395016182807), (+1.8320174102769862, +0.63442115409638333), (+1.8968225630856832, +0.45961378009059062), (+1.3841040603302743, +0.23719716377204707E-1), (+1.5768538490133317, +0.39448988979827232), (+1.6742219992258707, +0.14766406518994538), (+1.3949812202554324, +0.29223536067197364), (+1.6768028310836762, +0.86304279913331283), (+1.5814537613066157, +0.93714049549665757), (+1.6651589879127586, +0.25505763235641360), (+1.5764407614358422, +0.30625085711683035E-1), (+1.9172078595011797, +0.33304930702040281), (+1.8263353166731422, +0.35244067105971266), (+1.0519557951885214, +0.85893516817516091), (+1.5552040300561112, +0.37703208060968568), (+1.7920846849337493, +0.33990049819782392), (+1.6426312067961168, +0.51090551038764198), (+1.5548786513885087, +0.29138254787898099), (+1.5511422359010238, +0.76602949361076556), (+1.1936862310905103, +0.66601632751780959), (+1.9426590465967755, +0.22759158892260828), (+1.1006161519457427, +0.82337433849525188), (+1.3804772350945049, +0.73372065059202873), (+1.6258799012512761, +0.29576125591154440), (+1.7920283987350838, +0.42765029440688007), (+1.0869470049822143, +0.93670482668349775), (+0.22204460492503131E-15, -0.22204460492503131E-15), (+0.33306690738754696E-15, -0.61062266354383610E-15), (+0.11102230246251565E-15, -0.55511151231257827E-15), (+0.66613381477509392E-15, -0.43021142204224816E-15), (-0.11102230246251565E-15, -0.83266726846886741E-16), (+0.22204460492503131E-15, -0.29143354396410359E-15), (+0.11102230246251565E-15, -0.11102230246251565E-15), (+0.33306690738754696E-15, -0.11102230246251565E-15), (+0.77715611723760958E-15, -0.11102230246251565E-15), (+0.55511151231257827E-15, -0.43715031594615539E-15), (+0.0000000000000000, -0.11102230246251565E-15), (+0.55511151231257827E-15, +0.22204460492503131E-15), (+0.22204460492503131E-15, -0.22204460492503131E-15), (+0.55511151231257827E-15, -0.47184478546569153E-15), (+0.11102230246251565E-15, -0.33306690738754696E-15), (+0.33306690738754696E-15, -0.33306690738754696E-15), (+0.22204460492503131E-15, +0.13183898417423734E-15), (+0.66613381477509392E-15, -0.12490009027033011E-15), (-0.11102230246251565E-15, +0.16653345369377348E-15), (+0.44408920985006262E-15, +0.21510571102112408E-15), (-0.33306690738754696E-15, +0.55511151231257827E-16), (+0.11102230246251565E-15, +0.55511151231257827E-16), (-0.22204460492503131E-15, +0.27755575615628914E-15), (+0.0000000000000000, +0.55511151231257827E-16), (-0.11102230246251565E-15, +0.33306690738754696E-15), (+0.33306690738754696E-15, +0.55511151231257827E-16), (-0.11102230246251565E-15, +0.55511151231257827E-15), (-0.22204460492503131E-15, +0.22204460492503131E-15), (-0.22204460492503131E-15, +0.0000000000000000), (+0.44408920985006262E-15, -0.55511151231257827E-16), (-0.33306690738754696E-15, +0.16653345369377348E-15), (-0.11102230246251565E-15, -0.33306690738754696E-15), (+0.0000000000000000, +0.0000000000000000), (+0.44408920985006262E-15, +0.27755575615628914E-16), (-0.22204460492503131E-15, +0.36082248300317588E-15), (+0.22204460492503131E-15, +0.15265566588595902E-15), (+0.11102230246251565E-15, +0.36082248300317588E-15), (+0.33306690738754696E-15, -0.24980018054066022E-15), (-0.22204460492503131E-15, +0.49960036108132044E-15), (+0.22204460492503131E-15, +0.55511151231257827E-16), (+0.33306690738754696E-15, +0.63837823915946501E-15), (+0.22204460492503131E-15, +0.54643789493269423E-15), (+0.0000000000000000, +0.61062266354383610E-15), (+0.33306690738754696E-15, +0.36082248300317588E-15), (+0.22204460492503131E-15, +0.19428902930940239E-15), (+0.44408920985006262E-15, +0.11102230246251565E-15), (-0.11102230246251565E-15, +0.44408920985006262E-15), (+0.44408920985006262E-15, +0.16653345369377348E-15), (+0.11102230246251565E-15, +0.54817261840867104E-15), (+0.22204460492503131E-15, +0.63837823915946501E-15), (+0.11102230246251565E-15, +0.88817841970012523E-15), (+0.22204460492503131E-15, +0.66613381477509392E-15)
354reltol = sqrt(epsilon(1._TKC))
355reltol
356+0.14901161193847656E-7
357isClose(data, atad(1:size(data)), reltol = reltol)
358T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
359call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
360
361lenData = getUnifRand(5, 100)
362lenData
363+55
364data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
365data
366(+1.53029055401926698630446336953636255, +0.361132213158472072989713316195805339), (+1.85709043203091043500007789073790549, +0.563587607065609052691276346869612229), (+1.56357803075228719536053029908015483, +0.778943331107197490055264202080553379), (+1.60016188157130582124884376869671541, +0.718056849741890067556807454628051660), (+1.73105277093851656554741486145126063, +0.147938703937639691157088097432756430), (+1.93908919989396221598311662976939292, +0.908107694487322897660989652336177819), (+1.75817546266195744252029094795727164, +0.798948748444735534119699614860971784), (+1.64090139578264747806945014794889286, +0.554564886076015121727071254913742832), (+1.57118383052848736694811219426556362, +0.374490775719024138455369469672391582), (+1.97929154029846894121626689676845188, +0.252280723028650575332801411689771521), (+1.93413025640882498623580302321375981, +0.615331784004937413867194629424920721), (+1.08771602981988505755921443211801747, +0.300135267803917724281661873576080684E-1), (+1.58636482444503584778804035218552787, +0.666202777979912287948298758656583309), (+1.29276062827147108756451937718970061, +0.158113114940343079344260857431370221), (+1.97955517794271527423115030926830994, +0.757094938380623903648473279784269364), (+1.48316074384802695840430473682920320, +0.922646523227723640821196629558366057E-1), (+1.33631900775511794563869356331576439, +0.972884302839379720729150821759651819), (+1.35185004885512603745072138415235959, +0.341764840841595778585418645748601850E-1), (+1.11741402621056023563787807003601416, +0.461562607062655878179072460697536300), (+1.48443428125872364189833676803747893, +0.458692227334580385194107466948098176), (+1.76545354447296084776009369851021040, +0.919851001910570127154938559068093898), (+1.12311034243636658619727763275508505, +0.556085902321985450126702961317369754), (+1.12392013346177495228548376244647134, +0.135680998060410948998373397213723408), (+1.56044115606737312982229056997716903, +0.353232609857264069328971892694570493), (+1.16643006300875828334359609193901429, +0.356700660645702162609203555606755182), (+1.28054181632182795068603517688820628, +0.130912534042640784985747603806813448), (+1.54826938271312403566349674044691502, +0.798765567024700687241208208885984496), (+1.96113850479451945641524746472799718, +0.962312074984339343944052969056976575), (+1.18769315110448639256929001372543903, +0.314406907806455733015571109038605340), (+1.96811940251885951164809765914692353, +0.479412984476450012095310281802470816), (+1.63532690949708059745044736368843435, +0.548224035091246927240932794348695584), (+1.63686635104182224322093061426068965, +0.567003708679228998812037375855557749), (+1.28613787602886265191795926237444409, +0.909746403114116121161495534981561030), (+1.81633131480040189951900598095402770, +0.315358237893360484750094272079177198), (+1.75674270382758112697010414097846027, +0.810412577800273911532208726919519899), (+1.95883058315962191073041042331455068, +0.667795330297637487900586887790875355), (+1.76883330941020889586238470477698940, +0.341171875531750679728647454308575971), (+1.31092355758838773664052899154631971, +0.788954297524153243420463472693478102), (+1.06949646122457220519732141990850844, +0.824734899288524002583481751369821435), (+1.23994279494907178653125012988124616, +0.739303355794351385083356540287257848), (+1.34185709571419509549284297623205807, +0.123134107944749689025352393483439459E-1), (+1.22288577597865522473563956194231407, +0.212706111555134011358812448140506038E-1), (+1.03520015353363032480567966105059571, +0.600753647024377813348398916232211966), (+1.44620899486849402163733194590676201, +0.404182187884743729936225707495491604), (+1.89171908894214492394275708009424789, +0.835326673845329124605443464254236359), (+1.70793759457171758563464848711439359, +0.519554274277190508025403072451221586), (+1.38137632933352606374867995392543015, +0.158793521802766185112061255905787065), (+1.58878758283499433137500453435355961, +0.351584873951210580543084786132626038), (+1.15224309622348162681422415933683282, +0.739597444366038019838869441245762488E-1), (+1.94599814440113504106859366739944225, +0.508486528051412649597274500712793941), (+1.24294539318575310197980202120093563, +0.874870229186328907297419348699419015), (+1.34378778713089822523656349269135504, +0.442948502617185764605793710043906038), (+1.13359883654419480314220400190199721, +0.245161409334284563618424678873641837), (+1.15287033731722606135803061236680639, +0.518591915740182289351325570789511349), (+1.19031484225815496070461056542485116, +0.107422731121178590357368005683838847)
367
368atad = getFFTR(getFFTF(data))
369atad = atad / size(atad)
370atad
371(+1.53029055401926698630446336953636275, +0.361132213158472072989713316195805387), (+1.85709043203091043500007789073790549, +0.563587607065609052691276346869612325), (+1.56357803075228719536053029908015483, +0.778943331107197490055264202080553668), (+1.60016188157130582124884376869671541, +0.718056849741890067556807454628051660), (+1.73105277093851656554741486145126101, +0.147938703937639691157088097432756190), (+1.93908919989396221598311662976939292, +0.908107694487322897660989652336177819), (+1.75817546266195744252029094795727203, +0.798948748444735534119699614860971592), (+1.64090139578264747806945014794889267, +0.554564886076015121727071254913742736), (+1.57118383052848736694811219426556343, +0.374490775719024138455369469672391582), (+1.97929154029846894121626689676845188, +0.252280723028650575332801411689771569), (+1.93413025640882498623580302321375942, +0.615331784004937413867194629424920818), (+1.08771602981988505755921443211801727, +0.300135267803917724281661873576082129E-1), (+1.58636482444503584778804035218552787, +0.666202777979912287948298758656583502), (+1.29276062827147108756451937718970061, +0.158113114940343079344260857431370221), (+1.97955517794271527423115030926831013, +0.757094938380623903648473279784269557), (+1.48316074384802695840430473682920281, +0.922646523227723640821196629558367501E-1), (+1.33631900775511794563869356331576420, +0.972884302839379720729150821759651819), (+1.35185004885512603745072138415235959, +0.341764840841595778585418645748601128E-1), (+1.11741402621056023563787807003601435, +0.461562607062655878179072460697536300), (+1.48443428125872364189833676803747874, +0.458692227334580385194107466948098032), (+1.76545354447296084776009369851021040, +0.919851001910570127154938559068093995), (+1.12311034243636658619727763275508486, +0.556085902321985450126702961317369754), (+1.12392013346177495228548376244647134, +0.135680998060410948998373397213723360), (+1.56044115606737312982229056997716903, +0.353232609857264069328971892694570204), (+1.16643006300875828334359609193901410, +0.356700660645702162609203555606755086), (+1.28054181632182795068603517688820647, +0.130912534042640784985747603806813400), (+1.54826938271312403566349674044691502, +0.798765567024700687241208208885984399), (+1.96113850479451945641524746472799680, +0.962312074984339343944052969056976286), (+1.18769315110448639256929001372543903, +0.314406907806455733015571109038605147), (+1.96811940251885951164809765914692353, +0.479412984476450012095310281802470864), (+1.63532690949708059745044736368843435, +0.548224035091246927240932794348695488), (+1.63686635104182224322093061426068965, +0.567003708679228998812037375855557556), (+1.28613787602886265191795926237444409, +0.909746403114116121161495534981561030), (+1.81633131480040189951900598095402770, +0.315358237893360484750094272079177294), (+1.75674270382758112697010414097846027, +0.810412577800273911532208726919519802), (+1.95883058315962191073041042331455048, +0.667795330297637487900586887790875259), (+1.76883330941020889586238470477698959, +0.341171875531750679728647454308575778), (+1.31092355758838773664052899154631932, +0.788954297524153243420463472693478391), (+1.06949646122457220519732141990850863, +0.824734899288524002583481751369821628), (+1.23994279494907178653125012988124597, +0.739303355794351385083356540287257751), (+1.34185709571419509549284297623205788, +0.123134107944749689025352393483438737E-1), (+1.22288577597865522473563956194231407, +0.212706111555134011358812448140505677E-1), (+1.03520015353363032480567966105059591, +0.600753647024377813348398916232211966), (+1.44620899486849402163733194590676182, +0.404182187884743729936225707495491460), (+1.89171908894214492394275708009424769, +0.835326673845329124605443464254236648), (+1.70793759457171758563464848711439321, +0.519554274277190508025403072451221683), (+1.38137632933352606374867995392543015, +0.158793521802766185112061255905786969), (+1.58878758283499433137500453435355942, +0.351584873951210580543084786132626183), (+1.15224309622348162681422415933683263, +0.739597444366038019838869441245762488E-1), (+1.94599814440113504106859366739944225, +0.508486528051412649597274500712794037), (+1.24294539318575310197980202120093582, +0.874870229186328907297419348699419015), (+1.34378778713089822523656349269135504, +0.442948502617185764605793710043905989), (+1.13359883654419480314220400190199702, +0.245161409334284563618424678873641837), (+1.15287033731722606135803061236680581, +0.518591915740182289351325570789511542), (+1.19031484225815496070461056542485135, +0.107422731121178590357368005683838907), (-0.962964972193617926527988971292463659E-34, +0.312963615962925826121596415670050689E-33), (-0.192592994438723585305597794258492732E-33, +0.481482486096808963263994485646231830E-34), (+0.962964972193617926527988971292463659E-34, -0.481482486096808963263994485646231830E-34), (+0.385185988877447170611195588516985464E-33, +0.240741243048404481631997242823115915E-33), (+0.481482486096808963263994485646231830E-33, +0.144444745829042688979198345693869549E-33), (+0.00000000000000000000000000000000000, -0.288889491658085377958396691387739098E-33), (-0.962964972193617926527988971292463659E-34, -0.337037740267766274284796139952362281E-33), (-0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000), (+0.00000000000000000000000000000000000, -0.337037740267766274284796139952362281E-33)
372reltol = sqrt(epsilon(1._TKC))
373reltol
374+0.138777878078144567552953958511352539E-16
375isClose(data, atad(1:size(data)), reltol = reltol)
376T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
377call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
378
379lenData = getUnifRand(5, 100)
380lenData
381+18
382data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
383data
384+1.82462168, +1.02795649, +1.31968975, +1.08988190, +1.16342568, +1.72919083, +1.59033012, +1.76524246, +1.92276931, +1.22049904, +1.80946851, +1.48429441, +1.61616874, +1.08329535, +1.51642489, +1.09078622, +1.98424411, +1.97690630
385
386atad = getFFTR(getFFTF(data))
387atad = atad * 2 / size(atad)
388atad
389+1.82462168, +1.02795649, +1.31968987, +1.08988202, +1.16342545, +1.72919071, +1.59032989, +1.76524234, +1.92276955, +1.22049880, +1.80946875, +1.48429441, +1.61616898, +1.08329487, +1.51642489, +1.09078598, +1.98424411, +1.97690630, -0.119209290E-6, -0.238418579E-6, +0.178813934E-6, +0.00000000, +0.238418579E-6, -0.178813934E-6, -0.178813934E-6, +0.178813934E-6, -0.238418579E-6, -0.596046448E-7, -0.178813934E-6, +0.298023224E-6, +0.596046448E-7, +0.178813934E-6
390reltol = sqrt(epsilon(1._TKC))
391reltol
392+0.345266977E-3
393isClose(data, atad(1:size(data)), reltol = reltol)
394T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
395call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
396
397lenData = getUnifRand(5, 100)
398lenData
399+32
400data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
401data
402+1.1985673534814185, +1.1301012841949758, +1.2877237023135142, +1.4214409622208621, +1.6542455500920354, +1.8493735980608574, +1.4204189135769991, +1.6137651307807095, +1.3321014576784873, +1.1383964339792731, +1.3026034480796347, +1.9340580115910502, +1.1558845708530519, +1.9405313766831005, +1.7386528614497723, +1.6055826596858545, +1.2340537789010826, +1.3337308122579981, +1.8689431727449695, +1.4152267341585687, +1.7673762698790911, +1.3650626193175985, +1.9673693139715638, +1.0483115457906762, +1.8084261538656130, +1.3983875987131695, +1.3986316541721431, +1.4745051315452544, +1.8253075605509137, +1.3748385534721779, +1.7141406329327666, +1.6067712065877111
403
404atad = getFFTR(getFFTF(data))
405atad = atad * 2 / size(atad)
406atad
407+1.1985673534814183, +1.1301012841949758, +1.2877237023135142, +1.4214409622208619, +1.6542455500920352, +1.8493735980608572, +1.4204189135769989, +1.6137651307807095, +1.3321014576784873, +1.1383964339792731, +1.3026034480796342, +1.9340580115910500, +1.1558845708530521, +1.9405313766831007, +1.7386528614497723, +1.6055826596858545, +1.2340537789010824, +1.3337308122579978, +1.8689431727449692, +1.4152267341585685, +1.7673762698790909, +1.3650626193175985, +1.9673693139715633, +1.0483115457906764, +1.8084261538656130, +1.3983875987131693, +1.3986316541721426, +1.4745051315452542, +1.8253075605509135, +1.3748385534721779, +1.7141406329327664, +1.6067712065877111
408reltol = sqrt(epsilon(1._TKC))
409reltol
410+0.14901161193847656E-7
411isClose(data, atad(1:size(data)), reltol = reltol)
412T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
413call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
414
415lenData = getUnifRand(5, 100)
416lenData
417+13
418data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
419data
420+1.56589712128424069778916430715256713, +1.72373570940509391800195266755239878, +1.80190486768611230732281443482924369, +1.05855313499664055662526632423776117, +1.03414205226725880354757340759088198, +1.43462101218331934578220659162771932, +1.04896758202247103206861679182883285, +1.26000872286356322452067540599081367, +1.76940166990750762767807088208126397, +1.56190429218087946980534121744602432, +1.09052206740964845709108493299292320, +1.75605327542600033677482503979313036, +1.27737813452023203078199700414896125
421
422atad = getFFTR(getFFTF(data))
423atad = atad * 2 / size(atad)
424atad
425+1.56589712128424069778916430715256713, +1.72373570940509391800195266755239916, +1.80190486768611230732281443482924388, +1.05855313499664055662526632423776117, +1.03414205226725880354757340759088179, +1.43462101218331934578220659162771951, +1.04896758202247103206861679182883285, +1.26000872286356322452067540599081367, +1.76940166990750762767807088208126397, +1.56190429218087946980534121744602432, +1.09052206740964845709108493299292339, +1.75605327542600033677482503979313036, +1.27737813452023203078199700414896106, +0.00000000000000000000000000000000000, +0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34
426reltol = sqrt(epsilon(1._TKC))
427reltol
428+0.138777878078144567552953958511352539E-16
429isClose(data, atad(1:size(data)), reltol = reltol)
430T, T, T, T, T, T, T, T, T, T, T, T, T
431call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
432
433lenData = getUnifRand(5, 100)
434lenData
435+35
436data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
437data
438(+1.98954868, +0.789758205), (+1.87757969, +0.811650276), (+1.63327479, +0.938844860), (+1.41707444, +0.582907557), (+1.43200195, +0.747036874), (+1.61573672, +0.604133606E-1), (+1.39509511, +0.165300786), (+1.01212502, +0.807367980), (+1.28457773, +0.279335141), (+1.90745640, +0.633100152), (+1.71205902, +0.812420011), (+1.29672194, +0.359777033), (+1.66399312, +0.924572289), (+1.62009311, +0.436046898), (+1.74739933, +0.709821701), (+1.11838174, +0.295192420), (+1.64183605, +0.505355120), (+1.27557743, +0.764395058), (+1.64435887, +0.564100921), (+1.29544938, +0.167746484), (+1.08397007, +0.981963098), (+1.62179780, +0.529573679), (+1.04553723, +0.713729441), (+1.57239914, +0.800841510), (+1.23280883, +0.473283589), (+1.46862912, +0.756120980), (+1.48841596, +0.893147945), (+1.62356949, +0.932065427), (+1.62534297, +0.304421782E-1), (+1.40467000, +0.879793525), (+1.88143790, +0.271489263), (+1.06363487, +0.224403441), (+1.78030920, +0.347746253), (+1.84764576, +0.688695908), (+1.18266165, +0.876368642)
439
440atad = getFFTR(getFFTF(data))
441atad = atad / size(atad)
442atad
443(+1.98954856, +0.789758086), (+1.87757957, +0.811650217), (+1.63327467, +0.938844681), (+1.41707420, +0.582907319), (+1.43200207, +0.747036874), (+1.61573672, +0.604135394E-1), (+1.39509487, +0.165300742), (+1.01212490, +0.807367802), (+1.28457761, +0.279335231), (+1.90745616, +0.633100271), (+1.71205878, +0.812420011), (+1.29672170, +0.359777153), (+1.66399300, +0.924572349), (+1.62009311, +0.436047107), (+1.74739933, +0.709821701), (+1.11838150, +0.295192450), (+1.64183605, +0.505355060), (+1.27557755, +0.764394999), (+1.64435887, +0.564100623), (+1.29544926, +0.167746276), (+1.08396995, +0.981963038), (+1.62179768, +0.529573798), (+1.04553711, +0.713729322), (+1.57239902, +0.800841212), (+1.23280859, +0.473283589), (+1.46862888, +0.756120920), (+1.48841572, +0.893147767), (+1.62356949, +0.932065129), (+1.62534285, +0.304422826E-1), (+1.40466952, +0.879793525), (+1.88143754, +0.271489322), (+1.06363487, +0.224403530), (+1.78030908, +0.347746253), (+1.84764588, +0.688695729), (+1.18266189, +0.876368523), (+0.298023224E-6, +0.119209290E-6), (+0.00000000, -0.596046448E-7), (+0.119209290E-6, -0.178813934E-6), (+0.178813934E-6, +0.745058060E-7), (+0.119209290E-6, +0.119209290E-6), (+0.00000000, -0.894069672E-7), (+0.596046448E-7, -0.119209290E-6), (+0.178813934E-6, -0.298023224E-7), (+0.178813934E-6, -0.134110451E-6), (+0.119209290E-6, -0.119209290E-6), (+0.178813934E-6, -0.208616257E-6), (+0.00000000, -0.149011612E-6), (+0.119209290E-6, -0.298023224E-7), (-0.119209290E-6, +0.00000000), (+0.119209290E-6, +0.298023224E-7), (+0.596046448E-7, +0.208616257E-6), (+0.00000000, +0.171363354E-6), (+0.119209290E-6, +0.00000000), (+0.00000000, -0.894069672E-7), (+0.119209290E-6, +0.596046448E-7), (+0.119209290E-6, +0.119209290E-6), (+0.596046448E-7, -0.149011612E-7), (+0.119209290E-6, +0.298023224E-7), (+0.596046448E-7, +0.119209290E-6), (+0.238418579E-6, +0.178813934E-6), (+0.298023224E-6, -0.134110451E-6), (+0.298023224E-6, +0.894069672E-7), (+0.178813934E-6, -0.119209290E-6), (-0.119209290E-6, +0.223517418E-7)
444reltol = sqrt(epsilon(1._TKC))
445reltol
446+0.345266977E-3
447isClose(data, atad(1:size(data)), reltol = reltol)
448T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
449call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
450
451lenData = getUnifRand(5, 100)
452lenData
453+48
454data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
455data
456(+1.8441452679519328, +0.59576312484721050), (+1.0188807387062087, +0.38791160988573303), (+1.5214473136360278, +0.80827890257669077), (+1.5031800498669206, +0.18553422900515049), (+1.2615220812938261, +0.52015453739246009), (+1.7577901193337633, +0.80301517507404330E-1), (+1.2947446217829093, +0.66530583652953712), (+1.2560415651684673, +0.57398580087951612), (+1.5475519344402286, +0.82882857277670796), (+1.8841591467100707, +0.14641006755252295), (+1.6582571549657623, +0.22677826643427446), (+1.5464403609244497, +0.31286910855722105), (+1.5837071304574610, +0.51871663484810837), (+1.6102469359133558, +0.40902438094886395), (+1.6978137290617668, +0.47106017961756974), (+1.1475318142833801, +0.88025297957286197), (+1.4546594085610587, +0.82585210222948036), (+1.5129063442130821, +0.40694370650580602), (+1.6921467702002788, +0.67904480831132019), (+1.7974167768394667, +0.75690340881838325), (+1.8044815461226262, +0.23484608289918307), (+1.2917066232428462, +0.66452611443694776), (+1.8585430417606648, +0.39589781560449155), (+1.3670624400227727, +0.69547949332677850), (+1.7767804766525366, +0.15734750817198717), (+1.7143112144517014, +0.76657082151396894), (+1.7047834368406125, +0.54780393673514083), (+1.9889163405064760, +0.60405596556085517), (+1.9169339575081423, +0.72696192614328814), (+1.2933172623165641, +0.34137233682038548), (+1.1556618094113809, +0.15677285640756489), (+1.4720427709285744, +0.98081635536200062), (+1.8308535517364071, +0.54025370667925277), (+1.0847418406597411, +0.89879500126613543), (+1.1348585274421641, +0.34788665935637841), (+1.4290383430175899, +0.82941864461483006), (+1.6020205043643210, +0.49430893344146809), (+1.5019288907845070, +0.90231658433752637), (+1.8048163512683759, +0.96059866464278365), (+1.2746061750880047, +0.65253576535846991), (+1.2186384751445027, +0.72225043368259301E-1), (+1.1933279582719896, +0.49469011078952951), (+1.9942594634135085, +0.57512089263948951), (+1.3665342327662446, +0.51533004858894760), (+1.4610703572461110, +0.14822349752103203), (+1.2091903176230296, +0.97128196062465966), (+1.8820470866329710, +0.84217227833785513), (+1.5062508842439808, +0.90467169352462040)
457
458atad = getFFTR(getFFTF(data))
459atad = atad / size(atad)
460atad
461(+1.8441452679519328, +0.59576312484721039), (+1.0188807387062087, +0.38791160988573292), (+1.5214473136360271, +0.80827890257669077), (+1.5031800498669201, +0.18553422900515082), (+1.2615220812938264, +0.52015453739245987), (+1.7577901193337633, +0.80301517507404441E-1), (+1.2947446217829093, +0.66530583652953723), (+1.2560415651684669, +0.57398580087951623), (+1.5475519344402286, +0.82882857277670807), (+1.8841591467100705, +0.14641006755252325), (+1.6582571549657619, +0.22677826643427473), (+1.5464403609244488, +0.31286910855722172), (+1.5837071304574610, +0.51871663484810859), (+1.6102469359133558, +0.40902438094886429), (+1.6978137290617661, +0.47106017961756996), (+1.1475318142833797, +0.88025297957286230), (+1.4546594085610591, +0.82585210222948013), (+1.5129063442130821, +0.40694370650580597), (+1.6921467702002784, +0.67904480831132008), (+1.7974167768394662, +0.75690340881838325), (+1.8044815461226267, +0.23484608289918296), (+1.2917066232428460, +0.66452611443694765), (+1.8585430417606650, +0.39589781560449139), (+1.3670624400227727, +0.69547949332677839), (+1.7767804766525370, +0.15734750817198717), (+1.7143112144517014, +0.76657082151396883), (+1.7047834368406125, +0.54780393673514061), (+1.9889163405064751, +0.60405596556085484), (+1.9169339575081423, +0.72696192614328781), (+1.2933172623165641, +0.34137233682038554), (+1.1556618094113811, +0.15677285640756489), (+1.4720427709285739, +0.98081635536200018), (+1.8308535517364071, +0.54025370667925299), (+1.0847418406597409, +0.89879500126613543), (+1.1348585274421636, +0.34788665935637847), (+1.4290383430175899, +0.82941864461482984), (+1.6020205043643208, +0.49430893344146826), (+1.5019288907845065, +0.90231658433752659), (+1.8048163512683759, +0.96059866464278354), (+1.2746061750880044, +0.65253576535846980), (+1.2186384751445027, +0.72225043368259190E-1), (+1.1933279582719891, +0.49469011078952918), (+1.9942594634135080, +0.57512089263948907), (+1.3665342327662440, +0.51533004858894715), (+1.4610703572461106, +0.14822349752103206), (+1.2091903176230292, +0.97128196062465944), (+1.8820470866329706, +0.84217227833785446), (+1.5062508842439803, +0.90467169352461962), (-0.11102230246251565E-15, +0.22204460492503131E-15), (-0.44408920985006262E-15, -0.27755575615628914E-15), (+0.33306690738754696E-15, +0.16653345369377348E-15), (+0.0000000000000000, -0.55511151231257827E-16), (+0.11102230246251565E-15, +0.0000000000000000), (-0.22204460492503131E-15, -0.16653345369377348E-15), (+0.22204460492503131E-15, +0.27755575615628914E-15), (-0.11102230246251565E-15, +0.11102230246251565E-15), (+0.44408920985006262E-15, +0.22204460492503131E-15), (+0.22204460492503131E-15, +0.0000000000000000), (+0.33306690738754696E-15, +0.38857805861880479E-15), (+0.33306690738754696E-15, +0.44408920985006262E-15), (+0.11102230246251565E-15, -0.55511151231257827E-16), (+0.55511151231257827E-15, +0.55511151231257827E-16), (+0.66613381477509392E-15, +0.56898930012039273E-15), (+0.33306690738754696E-15, +0.72164496600635175E-15)
462reltol = sqrt(epsilon(1._TKC))
463reltol
464+0.14901161193847656E-7
465isClose(data, atad(1:size(data)), reltol = reltol)
466T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
467call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
468
469lenData = getUnifRand(5, 100)
470lenData
471+68
472data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
473data
474(+1.47318323160062872589976760568826496, +0.921666306469591507240664593593732795), (+1.70098204684660292427371951853580609, +0.287824363628886788084542372595822696), (+1.67879314842092666431555024269830483, +0.296930954885545886168420995682021609), (+1.44225161220326063505107151732088150, +0.535973138343744464483357841829091517), (+1.14452290222391394148720213945279122, +0.926605373638849797467515037214317764), (+1.65694143045506182426417354081834297, +0.533799422743275913965308338663014184), (+1.46542556767024957837908127624925160, +0.639016534903050701207384120128172430E-2), (+1.47054806424870906586883260319912634, +0.798528592147309663952617101846069129), (+1.28543078117990499089938062319826564, +0.400411132285564032373527238295642481), (+1.55663313627878648862113403830031962, +0.294137300150948465634997357120493552), (+1.24843909568458504439998121530431048, +0.534898875703400263633942115132410798), (+1.94599028776569890020516045405431974, +0.768739412119527879066483423660935874), (+1.33210838448005711864774205302380304, +0.487184427577294582590791180070956581), (+1.85783233380142338575895173366508654, +0.590932199226024457182098548274416139), (+1.51988696598531308943222856550355192, +0.362022468096749807436127633393846779), (+1.24546776735634579376979745888997784, +0.221106423645137459537956453655661133), (+1.58263268903607708701270331526746457, +0.549568219267424574811359807174424813), (+1.49972717239450913504000872203069389, +0.322262789562739699202149567910889789), (+1.70807563281644988016654609506541405, +0.423078402858808611532118486013052354), (+1.71375206198048234338387360972138182, +0.639883303924857097493810394190176887E-1), (+1.23378267013815207579143607618267457, +0.892518800942903973366256696024902076), (+1.10290732501806609119462013798116784, +0.578239241651280741957412178115688198), (+1.68773688807940372749142057460011919, +0.471092153038230743863207867645760842), (+1.74760229992998819124006212223255152, +0.318971445249744317610093003107165978), (+1.45446482969398431150257332106955908, +0.384568557661381603753866263780577170), (+1.69209382503081247095987042723392746, +0.877886333660511665740297825186998834), (+1.67597903941684693112210203933616172, +0.721551995071075419005785873102381488E-1), (+1.14516486926990740082778641810557526, +0.941042705223312013278820369947051497E-1), (+1.57388119296156416868946732613651670, +0.270781382679099488000613562998424872), (+1.36404783618138232115191104959381504, +0.275305289062634805351816192268564478E-1), (+1.87322794167223752838225407907474698, +0.489861455746357772434156559357090588), (+1.77023928547880084378923985313706131, +0.844345067622794794786253418800284040), (+1.05233268939548475296388155467457445, +0.627020242710890703391008004272678270), (+1.24181792029360264218582110611516207, +0.873209312101477472306415088565216118), (+1.88706614860429696830647797372403924, +0.683757167514350004982966624086049190), (+1.78416245715458394472666727500617701, +0.189237706777793251356839335784295721E-1), (+1.22395592167003489291948962121260508, +0.939427137121445065153025971735078282), (+1.22306145369301146018783756450487473, +0.996627052604646738119697040208361223), (+1.28920828435114023914468290561192772, +0.297454419028167712651604434998431202), (+1.58617960751476474306103454445271745, +0.115333627157707693166200963192462334E-1), (+1.37887558606733365516680385280712763, +0.408214840636752914639409557044265441), (+1.13295584809668925555513928608544529, +0.728473349332345767851738800811679204), (+1.06200659904577029848344520029207478, +0.931987749385873389152701532811638521), (+1.08335901707826938918948162712280645, +0.907459016244036161700941009395222954), (+1.61328373900038744817473358689445359, +0.846322696093859082206798161776411959), (+1.70935684857467438074596130125674459, +0.309161107287567397144595737339619790), (+1.97868422244612817553145370925295025, +0.711371704809761000258919740643474809), (+1.48005296920724455522297261314763092, +0.828264266561462280294963812212518150), (+1.53046995915816161125856968362774224, +0.156438536216026258680709607138811861), (+1.02559915434091758802652229455309360, +0.960488875711299033224759350551066490), (+1.15157551411466178810318416327008560, +0.620072716744496542020105916691888546), (+1.34414704873898218446332712032961055, +0.166929301526862554177901305659724455), (+1.19397073574819409101906217546340754, +0.635431982514073202755862259869068731E-1), (+1.90129748123315605757264186449541053, +0.592218162520838679307870183729875052), (+1.36067816103630728697375916636840979, +0.501104363283776171954746693055175081E-1), (+1.54694961843811729200998840353549874, +0.417084075102742888445496716472144445E-1), (+1.72325060133073485469760131373655164, +0.206380615853758187022096509016754445), (+1.96710179784284731094446802410782035, +0.598556797961696274305689097094145564), (+1.50951492730419951000283120441117421, +0.668123004671327359245032035149957605E-1), (+1.52414310916308850148801641746874042, +0.607528419489839469985638481267188809), (+1.07945196048122465406908864181139024, +0.582193972245925572116701804398015598), (+1.68841360451841248907949992236926189, +0.148554442813800668605692500580464305), (+1.47856332323569776601870752715029409, +0.971376643021619302676745076012389036), (+1.74923453932479069891356374555990523, +0.213505997148287424364568981599081637), (+1.29920153389969666118281135693602366, +0.276313415875001374013052674545710878), (+1.70788976026064547565203434289699399, +0.755436639669871071232525928123830254), (+1.54152285781342379617856951644212325, +0.471932695825323915417226545301923613), (+1.32011031610847306102745982288127542, +0.342616795286266355832753528667005979)
475
476atad = getFFTR(getFFTF(data))
477atad = atad / size(atad)
478atad
479(+1.47318323160062872589976760568826476, +0.921666306469591507240664593593732698), (+1.70098204684660292427371951853580648, +0.287824363628886788084542372595822311), (+1.67879314842092666431555024269830502, +0.296930954885545886168420995682021802), (+1.44225161220326063505107151732088188, +0.535973138343744464483357841829091325), (+1.14452290222391394148720213945279122, +0.926605373638849797467515037214317572), (+1.65694143045506182426417354081834316, +0.533799422743275913965308338663013895), (+1.46542556767024957837908127624925140, +0.639016534903050701207384120128164004E-2), (+1.47054806424870906586883260319912634, +0.798528592147309663952617101846068936), (+1.28543078117990499089938062319826603, +0.400411132285564032373527238295642481), (+1.55663313627878648862113403830032020, +0.294137300150948465634997357120493408), (+1.24843909568458504439998121530431048, +0.534898875703400263633942115132410798), (+1.94599028776569890020516045405431994, +0.768739412119527879066483423660936163), (+1.33210838448005711864774205302380324, +0.487184427577294582590791180070956630), (+1.85783233380142338575895173366508751, +0.590932199226024457182098548274416235), (+1.51988696598531308943222856550355250, +0.362022468096749807436127633393846972), (+1.24546776735634579376979745888997822, +0.221106423645137459537956453655661085), (+1.58263268903607708701270331526746476, +0.549568219267424574811359807174424909), (+1.49972717239450913504000872203069427, +0.322262789562739699202149567910889886), (+1.70807563281644988016654609506541444, +0.423078402858808611532118486013052547), (+1.71375206198048234338387360972138201, +0.639883303924857097493810394190175924E-1), (+1.23378267013815207579143607618267457, +0.892518800942903973366256696024902173), (+1.10290732501806609119462013798116822, +0.578239241651280741957412178115688487), (+1.68773688807940372749142057460011919, +0.471092153038230743863207867645760745), (+1.74760229992998819124006212223255191, +0.318971445249744317610093003107165785), (+1.45446482969398431150257332106955908, +0.384568557661381603753866263780577459), (+1.69209382503081247095987042723392785, +0.877886333660511665740297825186999316), (+1.67597903941684693112210203933616172, +0.721551995071075419005785873102384617E-1), (+1.14516486926990740082778641810557507, +0.941042705223312013278820369947052340E-1), (+1.57388119296156416868946732613651670, +0.270781382679099488000613562998425113), (+1.36404783618138232115191104959381543, +0.275305289062634805351816192268564960E-1), (+1.87322794167223752838225407907474736, +0.489861455746357772434156559357090829), (+1.77023928547880084378923985313706208, +0.844345067622794794786253418800284329), (+1.05233268939548475296388155467457445, +0.627020242710890703391008004272678367), (+1.24181792029360264218582110611516246, +0.873209312101477472306415088565216311), (+1.88706614860429696830647797372403962, +0.683757167514350004982966624086049286), (+1.78416245715458394472666727500617740, +0.189237706777793251356839335784295480E-1), (+1.22395592167003489291948962121260527, +0.939427137121445065153025971735078282), (+1.22306145369301146018783756450487512, +0.996627052604646738119697040208361800), (+1.28920828435114023914468290561192772, +0.297454419028167712651604434998431153), (+1.58617960751476474306103454445271764, +0.115333627157707693166200963192460408E-1), (+1.37887558606733365516680385280712763, +0.408214840636752914639409557044265633), (+1.13295584809668925555513928608544529, +0.728473349332345767851738800811679589), (+1.06200659904577029848344520029207497, +0.931987749385873389152701532811638617), (+1.08335901707826938918948162712280606, +0.907459016244036161700941009395223339), (+1.61328373900038744817473358689445397, +0.846322696093859082206798161776412247), (+1.70935684857467438074596130125674536, +0.309161107287567397144595737339620079), (+1.97868422244612817553145370925295044, +0.711371704809761000258919740643475290), (+1.48005296920724455522297261314763169, +0.828264266561462280294963812212518246), (+1.53046995915816161125856968362774244, +0.156438536216026258680709607138811933), (+1.02559915434091758802652229455309399, +0.960488875711299033224759350551066779), (+1.15157551411466178810318416327008579, +0.620072716744496542020105916691888450), (+1.34414704873898218446332712032961074, +0.166929301526862554177901305659724455), (+1.19397073574819409101906217546340773, +0.635431982514073202755862259869068009E-1), (+1.90129748123315605757264186449541150, +0.592218162520838679307870183729874956), (+1.36067816103630728697375916636840998, +0.501104363283776171954746693055173396E-1), (+1.54694961843811729200998840353549893, +0.417084075102742888445496716472141075E-1), (+1.72325060133073485469760131373655183, +0.206380615853758187022096509016754662), (+1.96710179784284731094446802410782074, +0.598556797961696274305689097094146045), (+1.50951492730419951000283120441117421, +0.668123004671327359245032035149957845E-1), (+1.52414310916308850148801641746874042, +0.607528419489839469985638481267189098), (+1.07945196048122465406908864181139024, +0.582193972245925572116701804398015694), (+1.68841360451841248907949992236926228, +0.148554442813800668605692500580464594), (+1.47856332323569776601870752715029429, +0.971376643021619302676745076012389228), (+1.74923453932479069891356374555990600, +0.213505997148287424364568981599081710), (+1.29920153389969666118281135693602346, +0.276313415875001374013052674545710830), (+1.70788976026064547565203434289699437, +0.755436639669871071232525928123830639), (+1.54152285781342379617856951644212344, +0.471932695825323915417226545301923420), (+1.32011031610847306102745982288127600, +0.342616795286266355832753528667006268), (+0.288889491658085377958396691387739098E-33, +0.144444745829042688979198345693869549E-33), (+0.00000000000000000000000000000000000, +0.337037740267766274284796139952362281E-33), (+0.00000000000000000000000000000000000, +0.108333559371782016734398759270402162E-33), (-0.192592994438723585305597794258492732E-33, +0.240741243048404481631997242823115915E-33), (-0.962964972193617926527988971292463659E-34, +0.240741243048404481631997242823115915E-34), (-0.674075480535532548569592279904724561E-33, +0.240741243048404481631997242823115915E-33), (+0.962964972193617926527988971292463659E-34, -0.144444745829042688979198345693869549E-33), (-0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000), (+0.962964972193617926527988971292463659E-34, -0.144444745829042688979198345693869549E-33), (-0.577778983316170755916793382775478196E-33, +0.00000000000000000000000000000000000), (-0.577778983316170755916793382775478196E-33, -0.288889491658085377958396691387739098E-33), (-0.385185988877447170611195588516985464E-33, +0.144444745829042688979198345693869549E-33), (-0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000), (-0.385185988877447170611195588516985464E-33, +0.120370621524202240815998621411557957E-33), (+0.962964972193617926527988971292463659E-34, -0.168518870133883137142398069976181140E-33), (-0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000), (+0.962964972193617926527988971292463659E-34, +0.481482486096808963263994485646231830E-34), (-0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000), (+0.962964972193617926527988971292463659E-34, +0.481482486096808963263994485646231830E-34), (-0.481482486096808963263994485646231830E-33, +0.962964972193617926527988971292463659E-34), (-0.962964972193617926527988971292463659E-34, -0.264815367353244929795196967105427506E-33), (-0.192592994438723585305597794258492732E-33, -0.337037740267766274284796139952362281E-33), (-0.962964972193617926527988971292463659E-34, -0.168518870133883137142398069976181140E-33), (+0.00000000000000000000000000000000000, +0.120370621524202240815998621411557957E-34), (+0.962964972193617926527988971292463659E-34, -0.240741243048404481631997242823115915E-33), (-0.577778983316170755916793382775478196E-33, -0.168518870133883137142398069976181140E-33), (-0.288889491658085377958396691387739098E-33, -0.144444745829042688979198345693869549E-33), (-0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34), (+0.00000000000000000000000000000000000, -0.481482486096808963263994485646231830E-34), (-0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33), (-0.962964972193617926527988971292463659E-34, +0.481482486096808963263994485646231830E-34), (-0.192592994438723585305597794258492732E-33, -0.120370621524202240815998621411557957E-33), (-0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34), (+0.00000000000000000000000000000000000, -0.240741243048404481631997242823115915E-33), (-0.192592994438723585305597794258492732E-33, -0.481482486096808963263994485646231830E-34), (-0.385185988877447170611195588516985464E-33, +0.00000000000000000000000000000000000), (+0.962964972193617926527988971292463659E-34, -0.312963615962925826121596415670050689E-33), (-0.385185988877447170611195588516985464E-33, -0.385185988877447170611195588516985464E-33), (-0.962964972193617926527988971292463659E-34, -0.144444745829042688979198345693869549E-33), (-0.962964972193617926527988971292463659E-34, -0.433334237487128066937595037081608647E-33), (-0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33), (-0.385185988877447170611195588516985464E-33, -0.481482486096808963263994485646231830E-33), (-0.385185988877447170611195588516985464E-33, -0.337037740267766274284796139952362281E-33), (-0.385185988877447170611195588516985464E-33, -0.144444745829042688979198345693869549E-33), (-0.192592994438723585305597794258492732E-33, -0.120370621524202240815998621411557957E-33), (-0.385185988877447170611195588516985464E-33, -0.337037740267766274284796139952362281E-33), (-0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000), (-0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33), (-0.385185988877447170611195588516985464E-33, +0.120370621524202240815998621411557957E-33), (-0.481482486096808963263994485646231830E-33, -0.962964972193617926527988971292463659E-34), (-0.192592994438723585305597794258492732E-33, +0.216667118743564033468797518540804323E-33), (-0.674075480535532548569592279904724561E-33, +0.144444745829042688979198345693869549E-33), (-0.192592994438723585305597794258492732E-33, -0.168518870133883137142398069976181140E-33), (-0.288889491658085377958396691387739098E-33, -0.577778983316170755916793382775478196E-33), (+0.00000000000000000000000000000000000, -0.722223729145213444895991728469347744E-34), (-0.288889491658085377958396691387739098E-33, -0.385185988877447170611195588516985464E-33), (+0.00000000000000000000000000000000000, -0.144444745829042688979198345693869549E-33), (-0.481482486096808963263994485646231830E-33, -0.565741921163750531835193520634322400E-33), (-0.192592994438723585305597794258492732E-33, -0.144444745829042688979198345693869549E-33), (-0.674075480535532548569592279904724561E-33, -0.312963615962925826121596415670050689E-33)
480reltol = sqrt(epsilon(1._TKC))
481reltol
482+0.138777878078144567552953958511352539E-16
483isClose(data, atad(1:size(data)), reltol = reltol)
484T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
485call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
486
487lenData = getUnifRand(5, 100)
488lenData
489+9
490data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
491data
492+1.25481308, +1.94502664, +1.12662888, +1.29605031, +1.09591842, +1.65370083, +1.56547928, +1.54799032, +1.47399879
493
494atad = getFFTR(getFFTF(data))
495atad = atad * 2 / size(atad)
496atad
497+1.25481296, +1.94502664, +1.12662888, +1.29605031, +1.09591842, +1.65370059, +1.56547916, +1.54798996, +1.47399879, +0.596046448E-7, +0.178813934E-6, -0.596046448E-7, -0.119209290E-6, +0.298023224E-6, +0.00000000, +0.357627869E-6
498reltol = sqrt(epsilon(1._TKC))
499reltol
500+0.345266977E-3
501isClose(data, atad(1:size(data)), reltol = reltol)
502T, T, T, T, T, T, T, T, T
503call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
504
505lenData = getUnifRand(5, 100)
506lenData
507+42
508data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
509data
510+1.7088873605811168, +1.6948608242563661, +1.4032163636627106, +1.4596710098230101, +1.6266209615564575, +1.6795390052126975, +1.9310756795970987, +1.8251198690704253, +1.2038709118768227, +1.3836973717266647, +1.8279125172571837, +1.4903990821655901, +1.6015301434458400, +1.2344490795254432, +1.0555281330529767, +1.9437209954221104, +1.4459738862851896, +1.6778086076882854, +1.5927026365785495, +1.2245121331600211, +1.0174882661305906, +1.7457264136602619, +1.5105602043046378, +1.8915537488217993, +1.2750740961328599, +1.6566455749293927, +1.5884489689457604, +1.3637083553685432, +1.1458581824798175, +1.8412413080436865, +1.2197200195152127, +1.4628044107716085, +1.9544011784191087, +1.0260743563025163, +1.3325708043002100, +1.0772352460340846, +1.9000368900324012, +1.3162838543944568, +1.0485783091873753, +1.6106420764141358, +1.1254219398490304, +1.8142419545398061
511
512atad = getFFTR(getFFTF(data))
513atad = atad * 2 / size(atad)
514atad
515+1.7088873605811168, +1.6948608242563663, +1.4032163636627102, +1.4596710098230108, +1.6266209615564575, +1.6795390052126979, +1.9310756795970982, +1.8251198690704256, +1.2038709118768227, +1.3836973717266647, +1.8279125172571831, +1.4903990821655901, +1.6015301434458395, +1.2344490795254432, +1.0555281330529760, +1.9437209954221100, +1.4459738862851894, +1.6778086076882852, +1.5927026365785493, +1.2245121331600206, +1.0174882661305906, +1.7457264136602619, +1.5105602043046376, +1.8915537488217988, +1.2750740961328597, +1.6566455749293927, +1.5884489689457599, +1.3637083553685425, +1.1458581824798171, +1.8412413080436860, +1.2197200195152125, +1.4628044107716078, +1.9544011784191087, +1.0260743563025161, +1.3325708043002100, +1.0772352460340844, +1.9000368900324012, +1.3162838543944568, +1.0485783091873755, +1.6106420764141356, +1.1254219398490304, +1.8142419545398063, +0.88817841970012523E-15, -0.22204460492503131E-15, +0.55511151231257827E-15, +0.0000000000000000, +0.12212453270876722E-14, +0.44408920985006262E-15, +0.22204460492503131E-15, +0.0000000000000000, +0.44408920985006262E-15, +0.44408920985006262E-15, +0.44408920985006262E-15, +0.11102230246251565E-15, +0.77715611723760958E-15, +0.44408920985006262E-15, +0.22204460492503131E-15, +0.88817841970012523E-15, +0.88817841970012523E-15, +0.77715611723760958E-15, +0.33306690738754696E-15, +0.66613381477509392E-15, +0.66613381477509392E-15, +0.11102230246251565E-14
516reltol = sqrt(epsilon(1._TKC))
517reltol
518+0.14901161193847656E-7
519isClose(data, atad(1:size(data)), reltol = reltol)
520T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
521call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
522
523lenData = getUnifRand(5, 100)
524lenData
525+95
526data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
527data
528+1.21125266455314946895846278669327378, +1.35565100599591214779348542713732837, +1.62099681457398925099222760173174412, +1.91091873016084656417430370378515232, +1.30222201907179623823756008459980334, +1.05801868759405390535102638618056166, +1.51186319175855085270216469343075541, +1.00426785026264011553710854912935771, +1.57402698468087827574724038331562673, +1.05756044074846064983829562388052323, +1.48498569172241276695826436376681828, +1.15913291650704823069198417977187856, +1.46312570501295651165922348519127866, +1.88215589755189007435746547693608245, +1.04518264677740224963278819534568451, +1.29607280517566463157385758749932304, +1.13505961448939625781835492263494862, +1.91253037912876554227203813002289853, +1.15401659988999820200822009662785589, +1.43130959805641596597314190492455142, +1.57171932788727085834403709652184894, +1.27562121778506472713395920991298797, +1.57852009915130240740384618417901587, +1.35269114334336552284086305604982212, +1.28125336714085231458841602372706009, +1.87516972499994336328056412447742655, +1.31264645148716594832379795279134870, +1.04519747996221694047470983688775481, +1.15288696995918329049894009686482897, +1.02164335444658191654578356873772749, +1.96316316997335447938591800916520529, +1.11112254283864605131781911927652730, +1.12845727269098827791984773613096293, +1.14390165415199599422672629923331718, +1.49582985646884896949981258731981064, +1.58368187429132172555841236015448457, +1.69485826873056189069123171621358887, +1.06362595060255886122876413210409324, +1.52707786716195494588861431308405702, +1.06497337945364253739028476590150403, +1.56231252900864228909369177494151454, +1.47314171962919094539020785245407803, +1.30460323273879848232193113625103106, +1.78158413155925418461735442407595666, +1.33573777295569401217737419346767445, +1.64883570046047183690860024326452569, +1.75380658703889382301055020594651787, +1.06767410727705024699276753826066080, +1.85052794135497008851898429359987546, +1.13907352186464847510177484669286756, +1.01106136167577077279007869838975625, +1.99448203423158603075184108126205321, +1.65291653941795264951550058348922959, +1.04829843683774179554303066019890022, +1.18887619727233083702100695935431607, +1.18783671592198121995228827298713520, +1.83891133923668896693585501018570191, +1.87207333924581071463804895985807642, +1.14502246206948341419269395985652491, +1.82631495730161038748975922415049204, +1.91968321489598989799209259346036832, +1.38979896194742364713015266917295281, +1.72065565304574800543328191666229387, +1.21908531639529196584503071027609252, +1.04238759798825373129601524250910522, +1.35940007775305157849102806606511281, +1.14033032570573857316916520545011337, +1.24437903458880288501787495450959738, +1.64275778371731714748476415656042990, +1.39572029563839889102928336914331914, +1.19586797457747460666489915267401293, +1.00629132628534428605407689515884369, +1.12916536208303194265181285300564606, +1.56729444047262636537260805644169087, +1.46025227613370840878480219719023749, +1.96057732150858006591332393072380601, +1.42534382262024249083951575520469053, +1.29823677748044701197214407917290037, +1.41065212580693001860668335417886121, +1.25284819857273232836612253346492851, +1.74287992050890762975435590326286356, +1.81039342228003506012634837469697326, +1.77066069704709157090198593137921054, +1.46144821665315819140247230504467138, +1.99171947328320665810512888020634427, +1.08672325120702250978824252445942831, +1.74545209725377285827483084999833258, +1.14583268551339108586213510969999595, +1.85629413632869659522059558870800771, +1.72034011520843398927828920046853682, +1.03252590893040374435864258738086667, +1.11892557493689478003550069134241578, +1.98745959079964331897793899773271720, +1.14851761318786293494989834564192172, +1.14490073730892791262832458751487168
529
530atad = getFFTR(getFFTF(data))
531atad = atad * 2 / size(atad)
532atad
533+1.21125266455314946895846278669327416, +1.35565100599591214779348542713732837, +1.62099681457398925099222760173174335, +1.91091873016084656417430370378515290, +1.30222201907179623823756008459980334, +1.05801868759405390535102638618056147, +1.51186319175855085270216469343075541, +1.00426785026264011553710854912935733, +1.57402698468087827574724038331562750, +1.05756044074846064983829562388052304, +1.48498569172241276695826436376681848, +1.15913291650704823069198417977187817, +1.46312570501295651165922348519127847, +1.88215589755189007435746547693608245, +1.04518264677740224963278819534568413, +1.29607280517566463157385758749932266, +1.13505961448939625781835492263494862, +1.91253037912876554227203813002289872, +1.15401659988999820200822009662785512, +1.43130959805641596597314190492455162, +1.57171932788727085834403709652184894, +1.27562121778506472713395920991298778, +1.57852009915130240740384618417901568, +1.35269114334336552284086305604982231, +1.28125336714085231458841602372706047, +1.87516972499994336328056412447742674, +1.31264645148716594832379795279134870, +1.04519747996221694047470983688775462, +1.15288696995918329049894009686482897, +1.02164335444658191654578356873772710, +1.96316316997335447938591800916520491, +1.11112254283864605131781911927652749, +1.12845727269098827791984773613096312, +1.14390165415199599422672629923331718, +1.49582985646884896949981258731981026, +1.58368187429132172555841236015448496, +1.69485826873056189069123171621358887, +1.06362595060255886122876413210409324, +1.52707786716195494588861431308405741, +1.06497337945364253739028476590150403, +1.56231252900864228909369177494151492, +1.47314171962919094539020785245407784, +1.30460323273879848232193113625103145, +1.78158413155925418461735442407595704, +1.33573777295569401217737419346767464, +1.64883570046047183690860024326452550, +1.75380658703889382301055020594651825, +1.06767410727705024699276753826066119, +1.85052794135497008851898429359987566, +1.13907352186464847510177484669286756, +1.01106136167577077279007869838975605, +1.99448203423158603075184108126205321, +1.65291653941795264951550058348922959, +1.04829843683774179554303066019889983, +1.18887619727233083702100695935431626, +1.18783671592198121995228827298713520, +1.83891133923668896693585501018570230, +1.87207333924581071463804895985807642, +1.14502246206948341419269395985652491, +1.82631495730161038748975922415049223, +1.91968321489598989799209259346036832, +1.38979896194742364713015266917295261, +1.72065565304574800543328191666229426, +1.21908531639529196584503071027609252, +1.04238759798825373129601524250910561, +1.35940007775305157849102806606511281, +1.14033032570573857316916520545011299, +1.24437903458880288501787495450959776, +1.64275778371731714748476415656042990, +1.39572029563839889102928336914331895, +1.19586797457747460666489915267401293, +1.00629132628534428605407689515884331, +1.12916536208303194265181285300564625, +1.56729444047262636537260805644169106, +1.46025227613370840878480219719023711, +1.96057732150858006591332393072380640, +1.42534382262024249083951575520469053, +1.29823677748044701197214407917289980, +1.41065212580693001860668335417886083, +1.25284819857273232836612253346492870, +1.74287992050890762975435590326286337, +1.81039342228003506012634837469697326, +1.77066069704709157090198593137921015, +1.46144821665315819140247230504467119, +1.99171947328320665810512888020634446, +1.08672325120702250978824252445942773, +1.74545209725377285827483084999833238, +1.14583268551339108586213510969999557, +1.85629413632869659522059558870800771, +1.72034011520843398927828920046853702, +1.03252590893040374435864258738086590, +1.11892557493689478003550069134241578, +1.98745959079964331897793899773271720, +1.14851761318786293494989834564192172, +1.14490073730892791262832458751487129, -0.385185988877447170611195588516985464E-33, +0.00000000000000000000000000000000000, +0.288889491658085377958396691387739098E-33, -0.288889491658085377958396691387739098E-33, -0.192592994438723585305597794258492732E-33, +0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, -0.385185988877447170611195588516985464E-33, -0.385185988877447170611195588516985464E-33, -0.385185988877447170611195588516985464E-33, -0.481482486096808963263994485646231830E-33, -0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, -0.481482486096808963263994485646231830E-33, +0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33, +0.192592994438723585305597794258492732E-33, +0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34, +0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34, +0.385185988877447170611195588516985464E-33, -0.577778983316170755916793382775478196E-33, -0.962964972193617926527988971292463659E-34, -0.674075480535532548569592279904724561E-33, +0.288889491658085377958396691387739098E-33, -0.674075480535532548569592279904724561E-33, -0.288889491658085377958396691387739098E-33, -0.481482486096808963263994485646231830E-33
534reltol = sqrt(epsilon(1._TKC))
535reltol
536+0.138777878078144567552953958511352539E-16
537isClose(data, atad(1:size(data)), reltol = reltol)
538T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
539call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
540
541
Test:
test_pm_fftnr


Final Remarks


If you believe this algorithm or its documentation can be improved, we appreciate your contribution and help to edit this page's documentation and source file on GitHub.
For details on the naming abbreviations, see this page.
For details on the naming conventions, see this page.
This software is distributed under the MIT license with additional terms outlined below.

  1. If you use any parts or concepts from this library to any extent, you must acknowledge the usage by citing the relevant publications of the ParaMonte library.
  2. If you regenerate any parts/ideas from this library in a programming environment other than those currently supported by this ParaMonte library, you must also ask the end users to cite this original ParaMonte library.
Author:
Fatemeh Bagheri, Tuesday 11:34 PM, August 10, 2021, Dallas, TX

Definition at line 611 of file pm_fftnr.F90.


The documentation for this interface was generated from the following file: